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IDENTIFICATION 

PRODUCT ID: AC-T781A-MC 

PRODUCT TITLE: CZTKHA TK25 FRT END FUNC 04 

PROOUCT DATE: MARCH, 1984 

DEPARTMENT: TAPE DIAGNOSTIC ENGINEERING 

AUTHOR: DICE SYSTEMS, INC, 



COPYRIGHT (C) 1984 BY 
DIGITAL EQUIPMENT CORPORATION. 
WESTBORO, MASSACHUSETTS . 
ALL RIGHTS RESERVED. 

THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY 1,4 ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE INCLUSION 
OF THE A60VE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER COPIES 
THEREOF MAY NOT 3£ PROVIDED OR OTHERWISE MAOE AVAILABLE TO ANY OTHER 
PERSON NO TITLE TO ANO CNNERSHIP OF THE SOFTWARF. IS HEREBY 
TRANSFERRED. 

THE I^ORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE AND 
SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION 

DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED &Y DIGITAL* 
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1.0 ABSTRACT 

THIS IS A POP 11/LSI RESIOENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY OF 
AN TK25 MAGTAPF SUBSYSTEM WHILE CONNECTED TO A PDP-11 SYSTEM (Q-BUS OR 
UNIBUS). THE PROGRAM HAS BEEN DIVIDED INTO FOUR MAJOR PIECES; CZTKE, 
CZTKF, CZTKG, CZTKH % SUCCESSFUL RUN EXAMPLES, AND TEST DESCRIPTIONS HAVE 
BEEN PROVIDED FOR EACH PROGRAM, 

THE PROGRAMS PROVIDE ERROR MESSAGES WKICH IDENTIFY FAILING FUNCTIONS, AND 
AID IN DEVICE REPAIR, REFERENCE THE FOLLOWING DIGITAL EQUIPMENT DOCUMENTS} 

1. CIQPMAO XXDP* PROGRAMMER'S MANUALi DOCUMENT NUMBER AC-S296A-AC; 
DATE; 14 JULY 1980, 

1.1 REVISION HISTORY 

NEW RELEASE APRIL 1984 
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2.0 REQUIREMENTS 



2,1 HARDWARE REQUIREMENTS 



PDP-11 FAMILY PROCESSOR WITH 52K WORDS Of MEMORY 
TK25 MAGTAPE SUBSYSTEM (DRIVE ANO CONTROLLER) 
CAUTIONtDIAGNOSTIC REQUIRES 32K WORDS OF MEMORY 
(28K USEABLE I.E. 4K FOR I/O PAGE) 



2.1.1 OPTIONAL HARDWARE - 

FOUR TK25 CONTROLLERS PER PDP-11, ONE 
DRIVE PER CONTROLLER 



2.2 SOFTWARE REQUIREMENTS 

PDP-11 DIAGNOSTIC SUPERVISOR (CIQPMAO VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDPO 



2.3 PREREQUISITES 



FUNCTIONAL PDP-11/LSI FAMILY CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 
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3.0 OPERATING INSTRUCTIONS - OPERATOR COMMANDS 

3.1 OPERATOR COMMANDS 

THE TK25 DIAGNOSTICS ARE PDP-11 DIAGNOSTIC SUPERVISOR COMPATIBLE PROGRAMS. 
ALL LOADING AND RUN TIME INSTRUCTIONS CAN BE REFERENCED IN THE PDP-11 
PROGRAMMER'S MANUAL "CIGPMAO XXDP" PROGRAMMER'S MANUAL NUMBER AC S296A-AC, 

BOOT THE DIAGNOSTIC XXDP* MEDIA (OPERATOR RESPONSES ARE UNDERLINED) 

CHMOLEO XXDP» OL MONITOR 
BOOTED VIA UNIT 
P8K NON-INIBUS SYSTEM 

ENTER DATE <DO-MMM~YY>: 29-JAN-82 



RESTART ADDRESS; 152010 

THIS IS XXDPf TYPE "H" OR "H/L" FOR HELP. 

.R CZTKHA 



CZTKHA.BIC 

DRS-EO 

CZTKH-A-0 

CZTKHA TK-25 FRT END FUNC *4 UNI i IS TK25 

RSTRT ADR 147642 

DR>START/FLAGjPNT;HOE 



THE ABOVE COMMAND WILL START THE DIAGNOSTIC, THE COMMANO HAS TuO 
SWITCHES ON WHICH ARE "PtfXNT EACH TEST N6R* AS EXECUTED" AND "HALT ON 
ERROR", 
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3,2 HARDWARE PARAMETERS 



SEQ 6 



AFTER INITIAL STARTING OF THE PROGF AM C START COMMANO TO THE DIAGNOSTIC 
SUPERVISOR u THE PROGRAM WILL ISSUf. THE "CHANGE HW?" QUESTION TO ASK IF 
HARDWARE PARAMETERS ARE TO BE CHAN3ED CBY THE OPERATOR). 



THE 



ON A »N'» CNO) RESPONCE TO THE QUESTION, THE PROGRAM WILL USE IT'S DEFAULT 
HARDWARE PARAMETER VALUES. IT WILL DEFAULT TO ONE UNIT SELECTED (UNIT 0), 
THE DEFAULT TSBA/TSDB WILL BE 172522 AND THE INTERRUPT VECTOR WILL BE 224. 

ON A "Y" (YES) RESPONSE TO THE QUESTION, THE FOLLOWING QUESTIONS WILL THEN 
BE ASKED TO ALLOW THE OPERATOR TO SELECT THE UNITS TO BE TESTED. A VALUE, 
IF PRESENT. LOCATED TO THE LEFT OF THE QUFSTION MARK Ii THE DEFAULT VALUE 
THAT WILL BE TAKEN ONLY IF A CARRIAGE RE1URN IS TYPED AS A RESPONSE, A 
"(D)" IN A QUESTION INOICATES THAT A DECIMAL NUMBER I ' REQUIRED AS A 
RESPONSE. AN "(0)" INDICATES AN OCTAL NUMBER IS BEIN; SOLICITED. AN "(LV 
THAT A LOGICAL RESPONSE IS TO BE MADE? "Y" FOR YES, «'N' FOR NO, 

UNITS (D) 7 < ENTER THE NUMBER OF CONTROLLERS 
PRESENT TO BE TESTEO> 



UNIT 

DEVICE ADDRESS (0) 172522 ? <ENTER THE ADDRESS OF THE 

TSBA/TSDB REGISTER* 



VECTOR (0) 224 ? 



<ENTER ADDRESS OF INTERRUPT 
VECTOR> 



THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) SPECIFIED IN THE " UNITS ?" QUESTION. LOGICAL UNI T 
NUMBERS ARE ASSIGNED li ORDER BEGINNING AT Q, UP TQ FOUR UNITS CAN BE 
SELECTED FOR TESTING, 
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3.5 SOFTWARE PARAMETERS 



SEQ 7 



THF 

FOLLOWING QUESTIONS ARE ASKED ON A START, RESTART, OR CONTINUE. THEY 

ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHAVES. 

CHANGE SW (L) ? < TYPE "Y" TO CAUSE THE FOLLOWING 

QUESTIONS TO BE ASKED. > 

INHIBIT ITERATIONS CD N ? < TYPE "Y" TO PREVENT MULTIPLE 

ITERATIONS OF CERTAIN TECTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
ONLY QUICK-RUNNING LOGIC 
TESTS USE MULTIPLE ITERATIONS. > 

ENABLE CONTROLLER RAM DUMP ON ERROR (L) N? < TYPE "Y" \0 DUMP 

SELECTED RAM CONTENTS IN THE 
CONTROLLER MODULE. > 



NOTE 



THE FOLLOWING QiXSTION IS ONLY ASKED FOR 
C2TKH DIAGNOSTIC. 



THE 



INHIBIT EOT CHECKING (REDUCES R^ TIME BY 22 MINUTES) (L) N? 

<THIS WILL SIGNAL THE DIAGNOSTIC 
SKIP END OF TAPE CHECKING. IF THE 
OPERATOR TS CONVINCED THAT THERE 
IS NO PROBLEM WITH EITHER THE 
TRACK SWITCHING CAPABILITY OR 
THE EOT DETECTION MECHANISM, THIS 
TEST MAY BE SKIPPED TO REDUCE RUN 
TIME,* 
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4.0 OPERATING INSTRUCTIONS - SAMPLE PRINTOUTS 

4.1 SUCCESSUL RUN EXAMPLES 

4a, X SUCCESSFUL RUN EXAMPLE - CZTKH - 

TST: 001 WRITE TAPE MARK RE1AY TEST 
TST: 002 SKIP TAPE MARKS TEST 

TST: 003 NO-OP ("CLEAN TAPE") AND INITIALIZE TEST 
TST: 004 ERASE ANO OPERATION INCOMPLETE TEST 
TST: 005 TEST OF OPERATIONS AT ECT TEST 

CZTKH EOP 1 « 

TOTAL ERRS 

NOTLj PROGRAM NOW STARTS OVER AGAIN AT TfcST I 
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4,2 OPERATING INSTRUCTIONS - SAMPLE ERROR MESSAGES 

ERROR MESSAGE EXAMPLE 1 

TST: 005 OPERATIONS AT EOT TEST 

CZTKH HRD ERR 00517 ON UNIT 00 TST 005 SUB 001 PC:054200 

UNABLE TO CLEAR EOT INIDICATION CXSTO) 8IT 

TSSR-000311 

TSSR CONTENTS ARE AMBIGUOUS 

TS5R BITS SET: SSR.OFL.BITO 

TERMINATION CLASS COOE -RECOVERABLE ERROR - TAPE 

POSITION ONE RECORD DOWN 
♦♦♦♦♦CHECK TRANSPORT***** 
PACKET ADORESS-055510 
PACKET WORD ♦0-140410 
PACKET WORD #1-000003 
PACKET WORD #2-000000 
PACKET WORD 03-006654 

MESSAGE BUFFER ADDRESS -055400 
MESSAGE BUFFER CONTENTS; 
MESSAGE BUFFER HEADER -100020 
DATA FIELD LENGTH -000012 
RESIDUAL BYTE COUNTER -000000 
XSTATO CONTENTS -0O0311 

XSTAT1 CONTENTS -000000 
XSTAT2 CONTENTS -100000 

XSTAT3 CONTENTS «000Q4Q 
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ERROR MESSAGE EXAMPLE 2 

CZTKH HAD EPR 00106 ON UNIT 00 TST 001 SUB 001 PC:024240 
TSSR NOT CORRECT AFTER SPACE REVERSE DATA COMMAND 

TSSR-100214 

TSSR BITS SET: SC. SSR 

TERMINATION CODE • UNRECOVERABLE ERROR 

♦ ♦•♦♦CHECK TRANSPORT**^* 

PACKET ADDRESS -026510 

PACKET WORD 00 -141011 

PACKET WORD *1 -065152 

PACKET WORD *2 -000000 

PACKET WORD 03 -000000 

MESSAGE BUFFER ADDRESS -026400 
MESSAGE BUFFER CONTENTS: 

MESSAGE BUFFER HEADER -100022 

DATA FIELD LENGTH -000012 

RESIDUAL BYTE COUNTER -000000 

XSTATO CONTENTS -000312 

XSTAT1 CONTENTS -000000 

XSTAT2 CONTENTS -100000 

XSTAT3 CONTENTS -000141 

ERROR MESSAGE EXAMPLE 3 

CZTKH HRD ERR 00107 ON UNI I 00 TST 001 SUB 001 PC: 024274 
WRITE TAPE MARK RETRY AT BOT, FAILED TQ SET N£F (XSTO) 

EXPO: 002312 RECV: 000312 XGR: 002000 
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5,0 PROGRAM RUN TIMES 



SEQ 11 



THE AVERAGE RUN TIMES OF THE PROGRAMS ARF LISTED BELOW. THESE FIGURES ARE 
TO BE USED AS A GUIDE. THE TIMING WAS DONE ON A PDP-11/23 (LSI) PROCESSOR 
WITH A LA -120 CONSOLE. 

THE PROGRAMS RUN IN NON-ITERATIVE MODE. EAJH TEST IS RUN ONCE, WITH NO 
ITERATIONS. THEREFOR, THE DEFAULT MODE (NORh.;!.: - ITERATIVE) AND THE 
NON-ITERATIVE MODE TIMES ARE IDENTICAL, 



5.1 RUN TIMES - CZTKH 



TEST 


N/I 


DEF 


NUMBER 


SECS. 


SECS. 


1 


180 


180 


2 


113 


113 


3 


11 


11 


4 


120 


120 


5 


1320 


1320 



THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 5 IN ONE COMMAND: 

Q.V. 29 MINS 4 SECONDS 
DEFAULT 39 MINS 4 SECONDS 
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9.0 TEST DESCRIPTIONS - CZ7KH 

6.1 TEST 1 - WRITE TAPE MARK RETRY 

******* ******* *************** ******************************* 

* NOTE; THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

* ANY TAPE ERRORS WILL BE DISPLAYED AS A TAPE STATUS ALERT * 

********* V ****************************** ********* + * + ***** + ** 

THIS TES1 VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND 
( SPACE REVERSE, ERASE, WRITE TAPE MARK), SUBTESTS ARE AS FOLLOWS: 

6.1,1 TEST 1, SUBTEST 1: - 

VERIFIES THAT A WRITE TAPE MARK RfclRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSES FUNCTION REJECT TERMINATION WITH THE 
NON-EXECUTABLE CNEF) ERROR BIT SET, 



6,1.2 TEST 1, SUBTEST 2: - 

VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE TAPE IS 
POSITIONED BEFORE THE FIRST RECORD, BUT NOT AT BOT, RESULTS IN TAPE STATUS 
ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) STATUS BIT SET. 



6,1.3 TEST 1, SUBTEST 3: - 

VERIFIES THAT A WRITE. TAPE MARK RETRY COMMAND TERMINATES PROPERLY AND 
WRITES THE TAPE MARK ONTO TAPE (BY ISSUING A READ REVERSE COMMAND AND 
CHECKING FOR TAPE STATUS ALERT TERMINATION AND TMK-1), 



6.1.4 TEST 1, SUBTEST 4: - 

VERIFIES THAT THE SPACE -REVERSE PORTION OF THE WRITE TAPE MARK RETRY 

OPERATION IS PERFORMED BY REWINOING THE TAPE, ISSUING SEVERAL WRITE TAPE 

MARK RETRY COMMANOS iN SUCCESSION, THEN ISSUING TWO SP 

ACE RECORDS REVERSE 

COMMANOS IN SUCCESSION. THE SECOND SPACE RECORDS REVERSE COMMAND SHOULD 

TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET, 
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6.2 TEST 2 - SKIP TAPE MARKS 

**************************** 4**** ************************* 

* NOTE: THIS TEST MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

♦ ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT * 

********************************************************** 

THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS FORWARD AND SKIP 
TAPE MARKS REVERSE COMMANDS. PROPER OPERATION UNDER CONTROL OF ALL 
COMBINATIONS OF THE ENABLE SKIP TAPE MARKS STOP CESS) AN: ENABLE TAPE MARKS 
STOP OFF BOT (ENB) BITS SPECIFIED BY THE WRITE CHARACTERISTICS COMMAND. 
THE TEST CONSISTS OF THE FOLLOWING SUBTESTS ( FOR EACH SUBTEST, THE TAPE IS 
FIRST WRITTEN WITH AN APPROPRIATE SERIES OF DATA RECORDS. AND/OR TAPE 
MARKS, AND/OR DOUBLE TAPE MARKS). 

6.2.1 TEST 2, SUBTEST 1: - 

VERIFIES THAT A SKIP TAPE MARKS FORWARD COMMAN*) WITH A TAPF MARK COUNT OF 1 
OPERATES PROPERLY. THE TAPE IS FIRST REWOUND AND THEN WRITTEN WITH SEVERAL 
"FILES"; EACH FILE CONSISTS OF A NUMBER OF DATA RECORDS FOLLOWED BY A TAPE 
MARK. EACH DATA RECORD CONTAINS THE FILE NU«ER AND THE RECORD NUMBER 
WITHIN THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY VERIFIED BY 
RFAOINS THE DATA. THE TAPE IS AGAIN REWOUND AND A SERIES OF TAPE SKIP MARK 
COMMANOS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT TERMINATION, TMK-1, 
STATUS, TAPE POSITION VIA READ COMMAND) IS CHECKED. PRIOR TO ISSUANCE OF 
EACH SKIP COMMAND, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO SET UP THE 
ESS ANO ENB CONTROL BITS. ALL COMBINATIONS OF ESS ANO ENB ARE USED 
COO .01, 10 ,1a) ; OPERATION SHOULD BE THE SAME IN EACH CASE FOR THIS 
SUBTEST. 

6.2.2 TEST 2, SUBTEST 2: - 

VERIFIF.S THAT SKIP TAPE MARKS COMMANO WITH A TAPE MARK COUNT GREATER THAN l 
OPERATES PROPERLY. COUNTS OF 2, 3, 8, 32, 64, 256, ANO 512 ARE TESTED. 
THE TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 

6,^.3 TEST 2, SUBTEST 3: - 

VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMANO ISSUED WHILE THE TAPE IS 
POSITIONED AT BOT CAUSE C FLECTION REJECT TERMINATION WITH THE. 
NON-EXECUTABLE FUNCTION CNEF) ERROR BIT SET* 



B2 



CZTKHA TK 25 FRT ENO TUNC *4 MACRO M1200 20-APR-84 08:13 PAGE 15 SEQ 14 

USER DOCUMENTATION 

6.2.4 TEST 2. SUBTEST 4: - 

VERIFIES THAT A SKIP TAPE HARKS REVERSE COMMANO ISSUED WHILE THE TAPE IS 
POSITIONED JUST BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT ) CAUSES 
TAPE STATUS ALERT TERMINATION WITH THfc REVERSE INTO BOT CRIB) STATUS BIT 
SET % 
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6,3 TEST 5 - NO-OP ("CLEAN TAPE") AND INITIALIZE 

THIS TEST VERIFIES PROPER OPERATION OF THE NO-OP ("CLEAN TAPE") AND 
INITIALIZE COMMANO. SUBTESTS ARE: 

6.3.1 TEST 3, SUBTEST 1* - 

VERIFIES THAT THE NO-OP COHHANO ( CORRESPONDS TO THE CLEAN TAPE COMMANO) 
TERMINATES PROPERLY ( NORMAL TERMINATION), STORES PROPER STATUS IN THE 
MESSAGE BUFFER (LIKE THE GET STATUS COMMAND), AND INDEED DOES NOT MOVE 
TAPE, THE TAPE IS FIRST REWOUND AND WRITTEN WITH THE SEQUENCED TEST 
RECORDS. IT IS THEN REWOUND AGAIN AND THE NO-OP COMMAND IS ISSUED. IT IS 
VERIFIED THAT THE TAPE IS STILL AT BOT AND THAT PROPER STATUS IS STORED. 
THE FIRST RECORD ON TAPE IS READ ANO VERIFIED (TO CHECK THAT TAPE POSITION 
AND VERIFYING DATA WERE NOT CHANGED), THEN THE NO-OP COMMANO IS ISSUED 
AGAIN ANO STATUS ANO POSITION ARE VERIFIED. 

6.3.2 TEST 3, SUBTEST 2: - 

VERIFIES THAT THE INITIALIZE COMMANO OPERATES AS A NO-OP, ASSUMING NO 
hICROOIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD HAVE ALREADY BEEN DETECTED 
IN OTHER TESTS). THE TEST SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST I. 
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6.4 TEST 4 - ERASE AND OPERATION INCOMPLETE 

a********************************************************* 

* NOTE: THIS TEST MUST HAVE A GOOO MAGTAPE IN THE ORIVE ♦ 

♦ ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT * 

THIS TEST VERIFIES THAT THE cRASE COMMANO OPERATES PROPERLY AND THAT THE 
VARIOUS OTHER TAPE MOTION COMMANDS TERMINATE WITH UNRECOVERABLE ERROR (TAPE 
POSITION LOST) ANO OPERATION INCOMPLETE COPI) STATUS WHEN THEY DO NOT 
ENCOUNTER ANY DATA ON THE TAPE, THE TEST CONSISTS OF THE FOLLOWING 
SUBTESTS: 



6.4.1 TEST 4. SUBTEST X: - 

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE IS POSITIONED AT BOT 
OPERATES PROPERLY AND ACTUALLY ERASES THE TAPE. THE FOLLOWING TEST 
SEQUENCE IS PERFORMED: 

1. THE TAPE IS FIRST REWOUND. THEN SEVERAL TEST RECORDS ARE WRITTEN 
ANO THE TAPE IS REWOUNO AGAIN. 

2. AN ERASE COMMANO IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 
RECORDS. 

3. NORMAL TERMINATION IS VERIFIED ANO POSITION IS CHECKED (BOT SHOULD 
BE 0). 

4. A REAO REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT THE COMMANO 
TERMINATES WITH TAPE STATUS ALERT. THAT THE REVERSE INTO BOT CRIB) 
STATUS BIT IS SET, AND THAT NO DATA IS TRANSFERRED. THIS 
DEMONSTRATES THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY 
THE ERASE COMMAND. 



6.4.2 TEST 4. SUBTEST 2x - 

VERIFIES THAT AN ERASE COMMANO. EXECUTED WHEN THE TAPE IS NOT POSITIONED AT 
BOT OPERATES PROPERLY AND DOES NOT CORRUPT PREVIOUS TAPE RECORDS. THE TEST 
SEQUENCE IS: 

1. THE TAPE IS FIRST REWOUNO. SEVERAL TEST RECORDS ARE WRITTEN, ANO 
THE TAPE IS REWOUNO AGAIN. 

2. A SPACE RECORDS FORWAHD COMMAND IS ISSltD TO MOVE THE TAPE OFF OF 
BOT AND SKIP OVER THE FIRST SEVERAL RECORDS. 

3* AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER OF TEST 
RECORDS. 
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4. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED. 

5. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT NORMAL 
TERMINATION IS ACCOMPLISHED AND THAT THE DATA TRANSFERRED 
CORRESPONDS TO THAT FOR THE EXPECTED RECORD. THIS DEMONSTRATES 
THAT NO DATA WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND, AND THAT THE PREVIOUS RECORD WAS NOT CORRUPTED, 

6.4.3 TEST 4. SUBTEST 3t - 

VERIFIES THAT THE TAPE MOTION COMMANDS, EXECUTED WHEN THE TAPE IS BLANK, 
RESULT IN UNRECOVERABLE ERROR TERMINATION AND OPERATION INCOMPLETE STATUS, 
THE FOLLOWING TEST SEQUENCE IS EXECUTED: 

1. THE TAPE IS REWOUNO. 

2. 300 ERASE COMMANDS ARE ISSUED (ABOUT HALF-WAY DOWN FIRST TRACK). 

3. IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANDS (ISSUED IN THE 
ORDER GIVEN ) RESULTS IN UNRECOVERABLE ERROR TERMINATION WITH 
OPI-lt SPACE RECORDS REVERSE, SKIP TAPE MARKS REVE^SF HEAD 
REVERSE, REREAD PREVIOUS fuPP-C), REREAD PREVIOUS (OPT-X). REREAD 
NEXT (OPP-1), REREAD .NEXT (W*0) t READ NEXT, SKIP TA a E MARKS 
REVERSE. SKIP TAPE MARKS FORWARD. REVERSE SKIP TAPE MARKS FORWARD, 
SPACE RECORDS FORWARD. WRITE DATA RETRY, 
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6.5 TEST 5 - OPERATIONS AT EOT 

4 ** ************** **************** ************************** 

* NOTE: THIS TAPE MUST HAVE A GOOD MAGTAPE IN THE DRIVE * 

* ANY TAPE ERRORS WILL BE DISPLAYED AS TAPE STATUS ALERT ♦ 

********************************************** ************* 

THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY THE VARIOUS 
TAPE MOTION COMMANOS THE FOLLOWING TEST SEQUENCE IS PERFORMED: 

1. THE TAPE IS REWOUND. 

2. WRITE DATA COMMANOS ARE REPEATEDLY ISSUED UNTIL TAPE STATUS ALERT 
TERMINATION IS SEEN WITH EOT-1. ERRORS OTHER THAN OCCASIONAL 
CORRECTABLE, OR UNCORRECTABLE DATA ERRORS CAUSE A FATAL ERROR 
REPORT. RECORDS WITH DATA ERRORS ARE RETRIED, SO THE TAPE ENDS VP 
WITH GOOD DATA. 

3. ANOTHER WRITE DATA COMMAND IS ISSUED AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

4. A WRITE TAPE MARK COMMAND IS ISSUED, AND IT IS CHECKED THAT TAPE 
STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

5. A SKIP TAPE MARKS REVERSE COMMAND IS ISSUED. AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS WITH EOT-1, AND TMK-1. 

6. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD CPUNT OF l t IS 
ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT TERMINATION 
OCCURS, WITH EOT-1, AND TMK-l. 

7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 1, IS 
ISSUED, ANO IT IS CHECKED THAT NORMAL TERMINATION OCCURS WITH 
EOT-1. 

6. A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 1, IS 
ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS, WITH 
EOT-1. 

9. A READ REVERSE COMMAND IS ISSUED, AND IT IS CHECKED THAT NORMAL 
TERMINATION OCCURS WITH EOT-1. 

10. A READ FORWARD COMMAND IS ISSUED, ANO IT IS CHECKED THAT NORMAL 
TERMIANTION OCCURS. WITH EOT-1. 

11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD C0UN1 OF 3, IS 
ISSUED, ANO IT CHECKS THAT NORMAL TERMINATION OCCURS WITH EOT-0, 

12. A SPACE RECORDS FORWARD COMMANO WITH A RECORD COUNT OF 3 IS 
ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION OCCURS WITH 
EOT-1. 

11, A REWIND COMMAND IS ISSUED TQ RETURN TO BQT. 
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132 


002002 


124 


002003 


113 


002004 


110 


002005 


000 


002006 


000 


002007 


000 


002010 




002010 


101 


002011 




002011 


060 


002012 




002012 


000001 


002014 




002014 


001217 


002016 




002016 


065011? 


002020 




002020 


065152 


002022 




002022 


002124 


002024 




002024 


002134 


002026 




002026 


065376 


002030 




002030 


OOOOOO 


002032 




002032 


OOOOOO 


002034 




002034 


OOOOOO 


002036 




002036 


OOOOOO 


002040 




0Q2Q4Q 


Q6536Q 



G2 
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SEQ 19 



i INITIALIZE SUPERVISOR MACROS 



.SBTTL PROGRAM HEADER 

.MCALL SVC 

SVC 

.ENABLE LC 

.NLIST BEX.CND 

.ENABL AMA.A8S 

. - 2000 

BGNMOD TUV2A 
TUV2A; j 



t THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
i THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR, 
\ -- 



POINTER BGNSU f BGNSFT t BGNAU,BGNOU,BGNRPT,BGNSETUP 
HEADER CZTKH.A. 0,655. ,0 
LJNAME;; jDIAGNOSTIC NAME 



L$REV: 
LIDEPO 
LIUNIT 
L$TIML 
LIHPCP 
LISPCP 
LIHPTP 
L$SPTP 
L$LADP 
LtSTA: 
LtCO: : 
LIDTYP 
LtAPT: 
L*QTPj 



.ASCII 


/c/ 




.ASCII 


/I/ 




.ASCII 


/J/ 




.ASCII 


/K/ 




.ASCII 


/H/ 




.BYTE 







.BYTE 







.BYTE 





jREVISION LEVEL 


.ASCII 


/A/ 


|0 


".ASCII 


/o/ 


t v 

1 NUMBER OF UNITS 


".WORD 


TIPTHV 


iLONGFST TEST TIME 


' '.WORD 


655. 


iPOINTER TO H.W. QUES. 


".WORD 


LIHARD 


^POINTER TO S.W. QUCS. 


' '.WORD 


LISOFT 


iPTR. TO DEF. H.W. PTABLE 


".WORD 


LIHW 


jPTR, TO S.W. PTABLE 


* ' . WORD 


LISW 


iDIAG. END ADDRESS 


.WORD 


LILAST 


jRESERVED FOR APT STATS 


.WORD 







.wonD 







j j 




jDIAGNOSTIC TYPE 


.WORD 





jAPT EXPANSION 


.WORD 





iPTR t TO DISPATCH TABLE 


.WORD 


LJDISPATCH 



H2 



MAm t !«B e & rt end func fl4 
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SEQ 20 



002042 

002042 

002044 

002044 

002046 

0CJO46 

002050 

002050 

002051 

002052 

002052 

002054 

002056 

002056 

002060 

002060 

002062 

002062 

002064 

002064 

002066 

002066 

002070 

002070 

002072 

002072 

002074 

002074 

002076 

002076 

002100 

002100 

002102 

002102 

002104 

002104 

002106 

002106 

002110 

002110 

002112 

002112 

002114 

002114 

0021 5, 

002116 

002120 

ooai^v 



000000 

000000 

000000 

003 
003 

000000 
000000 

000000 

003340 

023062 

000000 

000000 

022554 

022652 

000000 

003346 

104035 

OOOOOO 

021770 

023034 

022760 

021760 

OOOOOO 

OOOOOO 

OOOOOO 



LIPRIO: 








'.WORD 





LIENVI: 








'.WORD 





LIEXP1: 








".WORD 





LIMREV: 








' .BYTE 


cirevis: 




.BYTE 


CIEDIT 


LIEF:: 








.WORD 







,WORD 





LISPC:: 








.WORD 





LIDEVP: 








'.WORD 


LIDVTYP 


LIREPP: 








".WORD 


LIRPT 


LIEXP4: 








*,WORD 





LIEXP5: 








'.WORD 





LIAUT: ♦ 








.WORD 


LIAU 


LIDUT: : 








.WORD 


LIDU 


LILUN: : 








.WORD 





LIDESP: 


i 






.WORD 


LIDESC 


LILOAD: 


• 






EMT 


El LOAD 


LIETP: t 








.WORD 





LIICP:: 








.WORD 


LIINIT 


LICCP:: 








.WORD 


LICLEAN 


LIACP: : 








.WORD 


LIAUTO 


LIPRT: t 








.WORD 


LIPROT 


LITEST: 


J 






.WORD 





LIDLY: t 








• WORD 





UMIME; 


* 






.WORD 






■DIAGNOSTIC RUN PRIORITY 

jFLAGS DESCRIBE HOW IT WAS SETUP 

{EXPANSION WORD 

I SVC REV AND EDIT * 
ON 

IDIAG. EVENT FLAGS 



t POINTER TO DEVICE TYPE LIST 
jPTR. TO REPORT CODE 



jPTR. TO ADD UNIT CODE 

jPTR. TO DROP UNIT CODE 

iLUN FOR EXERCISERS TO FILL 

{POINTER TO DIAG. DESCRIPTION 

{GENERATE SPECIAL AUTOLOAD EMT 

{POINTER TO ERRTBL 

jPTR. TO INIT CODE 

tPTR. TO CLEAN-UP CODE 

jPTR. TO AUTO CODE 

jPTR. 10 PROTECT TABLE 

{TEST NUMBER 

{DELAY COUNT 

tPTR, TO HIGH MEM 



C£IKHA_TK : 25 .FRT END FUNC *4 



DEFAULT HARDWARE 

695 

694 

695 

696 

697 

698 

699 

700 002122 
002122 
002124 
002124 

701 

702 002124 

705 002126 

704 002130 

70b 002132 
002152 



"ABLE 
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SEQ 21 



.SBTTL DEFAULT HARDWARE P-TABLE 

»♦* 

j THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 

{ THE TEST -DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 

I IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 



000003 



172522 
000224 
000240 



L$HW: : 
DFPTBLtj 



BGNHW 
.WORD 



L 10000; 



.WORD 
.WORD 
.WORD 
ENDHW 



DFPTBL 
L10000-L*HW/2 



172522 

224 

PRI05 



lOEFAULT HARD-P-TABLE 



i 2ND (OF 2) REGISTERS, 
l INTERRUPT VECTOR 
j INTERRUPT PRIORITY. 



CZTKHA TK-25 FRT END FUNC 44 
SOFTWARE P- TABLE 



707 
708 
709 

710 
711 
712 
713 
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SEQ 22 



714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 

725 



002132 
002132 
002134 
002134 

002134 
002136 



000005 



000000 
000000 



002140 000000 



002142 
002144 
002146 
002146 



000031 
000310 



.SBTTL SOFTWARE P- TABLE 

i THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 
i PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 



BGNSW 
.WORD 

LtSW:: 

SFPTBL: : 


SFPTBL 
LlOOOl- 


•LSSW/2 


TRANSTSTjs 
NOITSt : 


.WORD 
.WORD 






EOTSEL:: 


.WORD 





LERRMAX: : 
GERRMAX: : 

ENDSW 
L 10001: 


.WORD 
.WORD 


25. 
200. 



t ENABLE RAM DUMP IF -1 

I INHIBIT ITERATION OPTION. 

j . .. ■ ITERATE. 

I ...NZ - INHIBIT ITERATE. 

i "INHIBIT EOT CHECKING (REDUCES TEST TIME 

>BY ABOUT 22 MINUTES" 

i LOCAL (PER TEST) ERROR LIMIT 

i GLOBAL CPER UNIT) ERROR LIMIT 



I<2 



CZTKHA TK-25 FRT END FUNG 04 
SOFTWARE P- TABLE 

728 
735 
740 
746 
747 
748 
749 
750 
751 
752 
753 
754 
755 
759 002146 
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.SBTTL GLOBAL EQUATES SECTION 



.SBTTL GLOBAL EQUATES SECTION 

l THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
5 ARE USED IN MORE THAN ONE TEST. 
* -- 



SF.Q 23 



EQUALS 
i BIT DIFINITIONS 



l GET STANDARD EQUATES. 



100000 
040000 
020000 
010000 
004000 
002000 
001000 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
00OOO2 
000001 

OOIOOO 
000400 
000200 
000100 
000040 
000020 
000010 
000004 
000002 
000001 



BIT15- 


- 100000 


BIT14- 


« 40000 


BIT13- 


- 20000 


BIT12- 


■ 10000 


BIT11- 


- 4000 


BIT10- 


- 2000 


BIT09- 


- 1000 


BIT08- 


- 400 


BIT07- 


- 200 


BIT06- 


- 100 


BIT05- 


• 40 


BIT04- 


- 20 


BIT03- 


- 10 


BIT02- 


- 4 


BIT01- 


• 2 


BITOO- 


- 1 


BIT9-- 


BIT09 


BIT8-- 


BIT08 


BIT7-- 


BIT07 


BIT6-- 


BIT06 


BIT5-- 


BIT05 


BIT4-- 


BIT04 


BIT3-- 


BIT03 


BIT2-- 


BIT02 


BIT1-- 


BIT01 


BITO-- 


BITOO 



000040 
000037 
000036 
000035 
000034 



EVENT FLAG DEFINITIONS 

EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 



EF 


STAR1-- 


32 


EF 


RESTART-- 


31 


EF 


CONTINUE-" 


30 


EF 


NEW-- 


29 


EF 


PWR-- 


28 



I START COMMANO WAS ISSUED 

I RESTART COMMANO WAS ISSUED 

I CONTINUE COMMANO WAS ISSUED 

l A NEW PASS HAS BEEN STARTED 

j A POWER -FAIL/POWER -UP OCCURRED 



i PRIORITY LEVEL DEFINITIONS 
l 











L2 




Kl a Su^ R kB?o& UNC * a 
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000340 


PRI07-- 340 








000300 


PRI06-- 300 








000240 


PRI05-- 240 








000200 


PRI04-* 200 








000140 


PRI03-- 140 








000100 


PRI02-- 100 








000040 


PRI01-- 40 








000000 


PRIOO-- 










{OPERATOR FLAG BITS 






000004 


EVL-- 4 








000010 


LOT-' 


10 








000020 


ADR-' 


20 








000040 


IDU-* 


40 








000100 


ISR-« 


100 








000200 


UAM-' 


200 








000400 


BOE-' 


400 








001000 


PNT-' 


1000 








002000 


PRI-" 


2000 








004 OOO 


IXE- 


4000 








010000 


IBE-- 


10000 








020000 


IER- 


20000 








040000 


LOE-- 


40000 








100000 


HOE-' 


100000 








760 










761 002146 


KT11 


i • 


j DEFINE MEMORY 


MANAGEMENT REGISTERS 




.5BTTL MEMORY MANAGEMENT DEFINITIONS 






i*KTll VECTOR ADDRESS 






000250 


MMVEC- 250 










I*KT11 STATUS REGISTER ADDRESSES 




177572 


SRO- 177572 








177574 


SRI- 177574 








177576 


SR2- 177576 








172516 


SR3- 172516 
.IF NB 










j*US£R "I" PAGE 


DESCRIPTOR REGISTERS 






UIPDRO- 177600 










UIPDR1- 177602 










UIP0R2- 177604 










Ul^DRS- 177606 










UIPDR4* 177610 










UIPDR5- 177612 










UIPDR6- 177614 










UIP0R7- 177616 










.IF N6 










j*USER "D" PAGE 


DESCRIPTOR REGISTORS 






UOPDRO- 177620 










UDPDR1- 177622 










UDPDR2- 177624 










U0PDR3- 177626 










U0PDR4- 177630 










U0PDR5- 177632 










U0P0R6- 17 7634 










U0PDR7- 17 7636 










,ENCC 










j*USER «I° PAGE 


ADDRESS 


REGISTERS 





SEQ 24 



&£Aot$ man^Bem^nt^^fir 



• e Wi8* 



NS 
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SEQ 25 



177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 

•D" PAGE ADDRESS REGISTERS 
177660 
177662 
177664 
177666 
177670 
177672 
177674 
177676 



UIPARO* 
UIPAR1- 

UIPAR2' 
UIPAR3- 
UIPAR4- 
UIPAR5- 
UIPAR6> 
UIPAR7' 

.IF NB 

i ' 'JSER 

UOPARO- 

U0PAR1' 

U0PAR2- 

UDPAR3- 

U0PAR4' 

U0PAR5' 

U0PAR6- 

U0PAR7' 

.ENOC 

.ENOC 
▼p NB 

'^SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPDRO- 172200 

SIPDRl- 172202 

SIPDR2- 172204 

SIPDR3- 172206 

SIPDRl- 172210 

SIP0K5- 172212 

SIPDR6- 172214 

SIPDR7- 172216 

.IF NB 

{♦SUPERVISOR "D' 

SDPDRO- 172220 

SDPDR1- 172222 

SDPDR2- 172224 

SDPDR3- 172226 

SDPDR4- 172230 

SDPDR5- 172232 

SDPDR6- 172234 

SDPDR7- 172236 

.ENOC 

j*SUPERVIS0R "V 

SIPARO- 172240 

SIPAR1- 172242 

SIPAR2- 172244 

SIPAR3- 172246 

SIPAR4- 172250 

SIPAR5- 172252 

SIPAR6- 172254 

SIPAR7- 172256 

.IF NB 

^SUPERVISOR "D' 

SDPARO- 172260 



PAGE DESCRIPTOR RE ISTERS 



PAGE ADDRESS REGISTERS 



PAGE ADDRESS REGISTERS 



SDPAR1 

SDPAR2' 

SDPAF3' 



172262 
172264 
172266 



SDPAR4- 172270 



N2 



CZTKHA TK-25 FRT END FUNC 04 
MEMORY MANAGEMENT DEFINITIONS 
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SEQ 26 



172300 
172302 
172304 
172306 
172310 
172312 
172314 
172316 



172340 
172342 
17?344 
172346 
172350 
172352 
172354 
172356 



SDPAR5* 


172272 




SDPAR6- 


172274 




SDPAR7- 


172276 




.ENDC 






.ENDC 






j*KERNEU "I" PAGE 


DESCRIPTOR REGISTERS 


KIPDRO- 


172300 




KIPDR1- 


172302 




KIP0R2- 


172304 




KIPDR3- 


172306 




KIP0R4- 


172310 




KIPDR5- 


172312 




KIPDR6- 


172314 




KIPDR7- 


172316 




«IF NB 






;*KERNEL "D" PAGE 




DESCRIPTOR REGISTERS 


KDPDRO- 


172320 




KDPDR1- 


172322 




KDPDR2- 


172324 




KDPDR3* 


172326 




KDPDR4- 


172330 




KDPDR5- 


172332 




KDPDR6- 


172334 




K0PDR7- 


172336 




.ENOC 






;*KERNEL "I" PAGE 


ADDRCSS REGISTERS 


KIPARO- 


172340 




KIPAR1- 


172342 




KIPAR2- 


172344 




KIPAR3- 


172346 




KIPAR4- 


172350 




KIPAR5- 


172352 




KIPAR6- 


172354 




KIPAR7- 


172356 




.TF N8 






j*Kf£RNEL "D" PAGE 


ADDRESS REGISTERS 



KDPARO- 172360 

KDPAR1- 172362 

KDPAR2- 172364 

KDPW3- 172366 

KDPHU4- 172370 

KDPAH5- 172372 

KD>AH6- 172374 

KD'W<7- 172376 
♦ ElMDC 



B3 



C2TKHA TK-25 FRT END FUNC *4 MACRO M1200 
TK-25 REGISTER ANO PACKET DEFINITIONS 



l 



766 




767 




768 




769 




770 




771 




772 


000004 


773 


000060 


774 


177560 


775 


177562 


776 




777 




778 




779 




780 




781 


100COO 


782 


040000 


783 


020000 


784 


010000 


785 


004000 


786 


002000 


787 


001400 


788 


000200 


789 


000100 


790 


000060 


791 


000016 


792 




793 




794 




795 




796 




797 




798 




799 




800 




801 


100000 


802 


040000 


803 


0200O0 


804 


010000 


805 


004000 


806 


0020O0 


807 


001000 


808 


000400 


809 


000200 


810 


000100 


811 


000040 


812 


000020 


813 


000010 


814 


000004 


815 


000002 


816 


QQQOOX 


817 




818 




819 




820 




821 




8^2 
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.SBTTL TK-25 REGISTER AND PACKET DEFINITIONS 



SEQ 27 



i SOME GENERAL EQUATES, 



ERRVEC-- 


4 


TTIVEC-- 


60 


TTICSR-- 


177560 


TTIBFR-- 


177562 



l POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
» INTERRUPT VECTOR FOR CONSOLE INPUT 
I BUS ADDRESS Of CONSOLE INPUT 
I CONSOLE INPUT DATA BUFFER 



jBIT DEFINITIONS FOR TSSR REGISTER 
i - 



sc- 


BIT15 


BIE- 


BIT14 


SCE- 


BIT13 


RMR- 


BIT12 


NXM- 


BIT11 


NBA- 


BIT10 


MIAOOR- 


BIT9JBIT8 


SSR- 


BIT7 


OFL- 


BIT6 


FATERR- 


BIT4JBIT5 


TERCLS- 


BIT3JBIT2JBITI 


i ♦ 

»BIT DEFINITIONS FOR EXTENDED 


i(XSTO) 

i 




l - 
XSOTMK- 


BIT15 


XSORLS- 


BIT14 


XSOLET- 


BIT13 


XSORLL- 


BIT12 


XSOWLE- 


BIT11 


XSONEF- 


BIT10 


XSOILC- 


BIT9 


XSOILA- 


BIT8 


XSOMOT- 


BIT7 


XSOONL- 


BIT6 


XSOIE- 


BIT5 


XSOVCK- 


BIT4 


XSOPEO- 


BIT3 


XSOWLK- 


BIT2 


xsoeoT- 


BIT1 


X50E0T- 


BITO 


JbiT DEFINITIONS FQR EXTENDED 


i(XSTl) 




1 * 





iSPECIAL CONDITION 

»BUS INTERFACE ERROR 

I SANITY CHECK ERROR 

iMOOIFICATION REFUSED 

iNONEXISTANT MEMORY ERROR 

iNEED BUFFER AOORESS 

lEXTENOED AOORESS BITS 

|SU6 SYSTEM REAOY 

lOFF LINE BIT 

iFATAL TERMINATION ERROR CODES 

I TERMINATION COOES 



STATUS REGISTER 



I TAPE MARK DETECTED 
I RECORD LENGTH SHORT 
I LOGICAL END OF TAPE 
iRECORO LENGTH LONG 
iWRITE LOCK ERf.Ofl 
$NON EXECUTABLE FUNCTION 
l ILLEGAL COMMAND 
i ILLEGAL AOORESS 
i TAPE IN MOTION 
I TRANSPORT ON LINE 
I INTERRUPT ENABLE 
iVOLUME CHECK BIT 
I PHASE ENCOOEO DRIVE 
iWRITE LOCKED 
(BEGINNING OF TAPE 
lENO OF TAPE 



STATUS REGISTER 1 



KISS^Biimmitf «tFXNiW6fii m20 ° 
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SEQ 28 



823 


100000 


824 


040000 


825 


020000 


826 


017375 


827 


000400 


828 


000002 


829 




830 




831 




832 




833 




834 


100000 


835 


040000 


836 


035400 


837 


002000 


838 


000200 


839 


000100 


840 


000077 


841 


000007 


842 




843 




844 




845 




846 




847 


177400 


848 


000200 


849 


000100 


850 


000040 


851 


000020 


852 


000010 


853 


000006 


854 


000001 


855 




856 




857 




858 




859 




860 


100000 


861 


040000 


862 


020OOO 


863 


017400 


864 


000377 


865 




866 




867 




868 




869 




8 70 




871 




872 




873 


000006 


874 


000006 


875 




8 76 




87 7 




878 




879 





BIT15 
BIT14 
BIT13 



jOATA LATE 
I NOT USED 



I NOT USED 
bins ^CORRECTABLE DATA ERROR 

BIT12*BITllfBIT10*BIT9*BIT7*BIT6*BIT5*BIT4BIT3*BI 
BIT8 iREAD BUS PARITY ERROR 

ilJNTnaRFnTAHi F DATA OR HARn 



BIT1 



Xl.DLT ■ 
"1. SPARE' 

XI, COR ' 
Xl.MBZ ' 
Xl.RBP ' 
Xl.UNC ' 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 
iCXST2> 

X2.0PM 
X2.RCE 

X2, SPARE 

X2,WCF 

X2.EXTF 

X2.BUFE 

X2.REV 

X2.UNIT 

iBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 
iCXST3) 



►BIT7»BIT6*BIT5*BIT4BIT3fBIT2*BI 

tREAD BUS PARITY ERROR 

l UNCORRECTABLE DATA OR HARD ERROR 



T2»BIT0 »ALWAYS 



BIT15 ;0PERATI0N IN PROGRESS (TAPE MOVING) 

BIT14 |RAM CHECKSUM ERROR 

BIT^BIT12*BIT11*BIT9»BIT8 |NOT USED BY TK-25 CALWAYS-O) 

BIT10 i WRITE CLOCK FAILURE (FIFO NOT EMPTIED BY TRANSPORT) 

BIT7 i IF WRITE CHAR CMD THEN • EXTENDED FEATURES ENABLED 

BIT6 i IF WRITE CHAR CMD THEN • BUFFERING ENABLED 

000077 i IF WRITE CHAR CMO THEN • MICROCOOE REVISION LEVEL 

BIT2»BIU*BIT0 i IF GET STATUS THEN - CURRENTLY SELECTED UNIT NO. 



X3.MDE - 


■ 177400 


X 3. SPARE' 


• BIT7 


X3.CPI • 


■ BIT6 


X3.REV ■ 


■ BITS 


X3.TRF ■ 


• BIT4 


X3.DCK • 


• BIT3 


X3.MBZ - 


-RIT2»BITl 


X3.RIB • 


■ BITO 



I MICRO -DIAGNOSTIC ERROR CODE 

iNOT USED BY TK-25 

! OPERATION INCOMPLETE 

i REVERSE 

I TRANSPORT RESPONSE FAILURE 

I DENSITY CHECK 

,NOT USED ALWAYS 

iREVERSE INTO BOT 

iBIT DEFINITIONS FOR EXTENOED STATUS REGISTER 4 
i(XST4) 

X4.HSP • BIT15 jHIGH SPEED 

X4.RCE ■ BIT14 iRETRY COUNT EXCEEDED 

X4.TSM - BIT13 , TRANSPORT SPECIAL MODE 

X4.MB7 • BIT12*BITll*BIT10*BIT9»BITfl ,N0" USED ALWAYS 

X4.WRC - 000377 iWRITE RETRY COWT FIELD 



TSSR TERMINATION CODES (BIT 0-2) 



TSREJ- 3*2 
UNREC- 6 

I ♦ 

jDEVICE REGISTER OFFSETS 
I 



I COMMAND REJECTED 
I UNRECOVERABLE ERROR 



m^ih$te^tm*m s£fim™ Ml20 ° 
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SEQ 29 



880 




881 




882 


177776 


885 


177776 


884 


177776 


885 


177776 


886 


177777 


88? 


177777 


888 


000000 


889 


000001 


890 




891 




892 




893 




894 


000003 


895 




896 




897 




898 




899 


000017 


900 


000013 


901 


000012 


902 


000011 


903 


000010 


904 


000006 


905 


000005 


906 


000004 


907 


000001 


908 




909 




910 




911 




912 


100000 


913 


040000 


914 


020000 


915 


010000 


916 


007400 


917 


000200 


918 


000140 


919 


000037 


920 




921 




922 




923 


oooooo 


924 


000400 


925 


001000 


926 


002000 


927 


002400 


928 




929 




930 




931 




932 


000167 


933 


000200 


934 


000020 


935 


000027 


936 


000104 



J - 



TSBA-- 


-2 




TSBAL-- 


-2 




TSDB-- 


-2 




TSDBL-- 


-2 




TSBAH-- 


-1 




TSD6H-- 


-1 




TSSR-- 







TSSRH-- 


1 




j*TS0B 


ADDRESS 


BIT DEFINITIONS 


A1716 


- BIT1 


fBITO 



»TSDB/TSBA 
iTSDB/TSBA 



REGISTER 
REGISTER 



jTSDB/TSBA REGISTER HIGH BYTE 

jTSSR REGISTER 

jTSSR REGISTER HIGH BYTE 



jADDRESS BITS 17,16 ARE IN ljO 



COMMANO DEFINITIONS 



i * 
I 

? - 
P. 

P. 
P. 
P. 
P. 
P. 
P. 
P. 
P. 

t COMMAND PACKET HEADER WORD BIT DEFINITIONS 
I - 



GETSTAT 

INIT 

CONTROL 

FORMAT 

POSITION 

WRTSUB 

WRITE 

WRTCHAR 

READ 



17 

13 

12 

11 

10 

6 

5 

4 

1 



iGET STATUS 

I INITIALIZE 

» CONTROL COMMANDS 

, FORMAT 

^POSITION 

, SUBSYSTEM WRITE 

, WRITE 

iWRITE CHARACTERISTICS 

(READ 



P.ACK - BIT15 

P.CVC • BIT14 

P.OPP - BIT13 

P.SWB ■ BIT12 

P.MOOE • BIT11!BIT10!BIT9JBIT8 

P. IE - BIT7 

P.FMT- BIT6JBIT5 

P.CMO ■ 37 

! CONTROL COMMAND MODE CODES 
J - 



PC. RELEASE 
PC, REWIND 
PC.NOOP 
PC.IEREU 
PC, ERASE 



- 0*256. 

- 1*256. 

- 2*256. 
» 4*256. 

- 5*256. 



i ♦ 
i 



CONTROLLER RAM DEFINITIONS 



RMCHBEG ' 
RMCHEND ■ 
RMPKTBEG- 
RMPKTENO' 
RMM5GBEG' 



167 

200 

20 

27 

104 



iBUFFER AVAIL FOR CONTROLLER 

, CLEAR VOLUME CHECK 

i REVERSE SEQUENCE OF DATA BITS 

iSWAP BYTES IN MEMORY 

lEXTENOEO COMMAND MOOE FIELD 

I INTERRUPT ENABLE 

, PACKET HEADER TYPE (ALWAYS-O) 

, MAJOR COMMAND FIELD 



, RELEASE BUFFER 
t REWIND 

»NO-OP 

iREWIND IMMEDIATE INTERRUPT 

iSEClfllTY ERASE 



CHARACTERISTICS 10 DATA BEGIN RAM ADORESS 
CHARACTERISTICS 10 OATA ENL RAM ADDRESS 
jCOMMANC PACKET BEGIN RAM ADOflESS 
j COMMAND PACKET END RAM AODRESS 
I MESSAGE BUFFER BFGIN RAM ADDRESS 



CZTKHA TK-25 
TK-25 REGIST 


ER AnE N BaCH 


937 


000117 


938 




939 




940 




941 




942 




943 




944 


000006 


945 


000010 


946 


000012 


947 


000014 


948 


000016 


949 




950 




951 




952 




953 




954 




955 




956 




957 


000002 


958 


000004 


959 


000006 


960 




961 


000010 


962 




963 




964 




965 




966 


000000 


967 


000001 


968 


00OO02 


969 


000004 


970 




971 




972 




973 




974 


000000 


975 


OOOOOl 


976 


000002 


977 


000003 


978 


000004 


979 


000005 


980 


000006 


981 


000007 


982 


OOOOIO 


983 


000011 


984 


000020 


985 


000021 


986 


000022 


987 


000023 


988 


000024 


RTS 




989 




990 




991 




992 




993 


000200 



)?FINIT 



E3 

M1200 20- APR -84 08s 13 PAGE 25-3 

RMMSGEND" 117 

i ♦ 
i 



SEU 30 



I MESSAGE BUFFER END RAM ADDRESS 



j REGISTER DEFINITIONS IN THE MESSAGE BUFFER 

t 

i - 

XST0-- 6 jEXTENOED 

XST1-- 8. jEXTENOED 

XST2-- 10. jEXTENOED 

XST3-- 12. jEXTENOED 

XST4-- 14. jEXTENOED 



OFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 



STATUS REGISTER (UORD 4) 

STATUS REGISTER 1 (WORD 5) 

STATUS REGISTER 2 CUORD 6) 

STATUS REGISTER 3 (WORD 7) 

STATUS REGISTER 4 (WORD 8) 



PKLOW 
PKHI 
PKBCNT ■ 

EXBCNT-10 



2 
4 

6 



jLOW ORDER CHARACTERISTIC DATA POINTER 
jHIGH ORDER CHARACTERISTIC DATA POINTER 
jNUMBER OF BYTES IN DATA PACKET 

, NUMBER OF BYTES IN EXTENOED DATA PACKET 



i > 



jDATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMANO 



j - 



BSELO 





BSEL1 


1 


SEL2 


2 


SELDATA - 


4 


j BSELO SELECT CODES 1 


PU.NOP 





PW. RDRAM 


• 1 


PW.WTRAM 


■ 2 


PW.RFIFO 


• 3 


PW.WFIFO 


• 4 


PU.RDSTAT 


• 5 


PW,WCTL 


• 6 


PW.WFMT 


• 7 


PW.UMISC 


• 10 


PW.WNPR 


' 11 


PW.022 


- 20 


PW.D11 


■ 21 


PW.D13 


• 22 


PW.N01311 


■ 2S 


PW.RDEXT 


■ 24 



jBYTE 
iBYTE 1 
jWORO 2 
{WORD 3 



jNO-OP 

jREAO RAM 

jWRITE RAM 

jREAD FIFO 

jWRITE FIFO 

jREAO STATUS 

j WRITE TAPE CONTROL 

jWRITE TAPE FORMAT 

j WRITE MISCELLANEOUS 

, WRITE NPR CONTROL 

jOO MICROTEST 22 

jOO MICROTEST 11 

jDO MICROTEST 13 

jDISABLE MICROTEST 11 AND 13 



jREAD EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPQ 



J ♦ 

iBSELl CODES FOR WRITE TAPE CONTROL 



WC.IFAD 



BIT7 



jIFAD - FORMATTER ADDRESS 



F3 
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SEQ 51 



994 


OOOIOO 


995 


000040 


99t'> 


000020 


997 


000010 


996 


000004 


999 


0COOO2 


1000 


000001 


1001 




1002 




1003 




1004 




1005 


000200 


1006 


000100 


1007 


000040 


1008 


000020 


1009 


OOOOIO 


1010 


000004 


1011 


000002 


1012 


000001 


1013 




1014 




1015 




1016 




1017 




1018 


000200 


1019 


000020 


1020 


000010 


1021 


000006 


1022 


000001 


1023 




1024 




1025 




1026 


oooooo 


1027 


0OO002 


1028 


000004 


102 { 


000006 


103 




103 l 




1032 




1033 


0OO20O 


1034 


000100 


1035 


00OO40 


1036 


000020 


1037 




1038 




1039 




1040 




1041 


000200 


1042 


000100 


1043 


000040 


1044 


000020 


1045 


OOOOIO 


1046 


000004 


1047 


000003 


1048 


100000 


1049 


040000 


1050 


020000 



WC.IOTAD - BIT6 

WC.I1TAD - BIT5 

WC.I5RESV • BIT4 

WC.IREW - BIT3 

WC.IRUU ■ BIT2 

WC.IFEN - BIT1 

WC.IGO • BITO 

IbSELI COOES FOR WRITE FORMAT 

WF.IHISP 

WF.IWRT 

WF.IREV 

WF.IWFM 

WF.IEDIT 

WF.IERASE 

WF.I3RESV 

WF.I4RESV 



t ♦ 



jITADO 

jITADl 

IIRESV5 

iIREW 

iTRWU 

l IFEN 

I GO 



TRANSPORT AOORESS BIT 

TRANSPORT ADDRESS BIT 1 

RESERVED *5 

REWIND 

REWIND ANO UNLOAD 

FORMATTER ENABLE 



- BIT7 


» BIT6 


- BIT5 


- BIT4 


- BIT3 


- BIT2 


• BIT1 


- BITO 



tlHISP 


- HIGH SPEED 


tlWRT 


- WRITE 


jIREV 


- REVERSE 


iIWFM 


- WRITE FILE MARK 


iIEDIT 


- EDIT 


jIERASE 


- ERASE 


»IRESV3 


- RESERVED *3 


j!RESV4 


- RESERVED 04 



iBSELl COOES FOR WRITE MISCELLANEOUS SUBCOMMAND 



MS, EXT 


- BIT7 


MS.RSFIFO 


- BIT4 


MS.RSTAPE 


- BIT3 


MS. ATTN 


- BIT2JBIT1 


MS.RSD 


- BITO 



j INVERT SENSE OF EXTENDED FEATURES SWITCH 

I RESET FIFO ANO INPUT PARITY ERRQRR 

jRESET TAPE STATUS IN 2 FLIP-FLOPS 

i ATTENTION TRIGGER FIELD 

tRESET TIMER A,B THEN DELAY TIMES IN SEL2 



! MS. ATTN SU6C00ES 

MSA. NOP - 0*2 

MSA .VOL - 1*2 

MSA.NRAM- 2*2 

MSA.FRAM- 3*2 

j WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 

NP.IR - BIT7 

NP.OUT - BIT6 

NP.LOOP - BIT5 

NP.WRP - BIT4 

! READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
j - 



t NO-0P (NOTHING TRIGGERED) 

»SIMULATE ON-LINE/OFF-LINE TRANSITION 

tFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 

, FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 



j INTERRUPT REQUEST (0-1 TRANSITION) 

iTAPE DATA DIRECTION OUT (0- IN) 

I ENABLE TRANSPORT LOOPBACK 

iWRITE CORRECT PARITY (SET-0 TO WRITE WRONG) 



S2.DIM 


■ BIT7 


S2.ILW 


• BIT6 


S2.0UTRDY 


■ BIT5 


S2.INRDY 


• BIT4 


S2.ATIMR 


■ BIT3 


S2.BTIMR 


• BIT2 


S2.UNDEF 


• BIU*BIT0 


Sl.PARIN 


• BIT15 


S1.I2RESV 


- BIT14 


S1.I1RESV 


• BIT13 



WORD 09 BYTE 2 



(UNDEFINED) 
WORD 06 BYTE 



DATA IN MISS 
ILW H 
OUT ROY H 
IN RDY H 
TIMER A FLAG 
TIMER B FLAG 

PARIN H 

IRESV2 

IRLSV1 



<im<&m R hwm fo^m 
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1051 


010000 


1052 


004000 


1053 


002000 


1054 


001000 


1055 


000400 


1056 


000200 


1057 


000100 


1058 


000040 


1059 


000020 


1060 


000010 


1061 


000004 


1062 


000002 


1063 


000001 


1064 




1065 




1066 


177560 


1067 


177562 


1068 


177564 


1069 


177566 


1070 


007776 


1071 




1072 




1073 




1074 


174400 


1075 


174402 


1076 


174404 


1077 


174406 


1078 




1079 




1080 




1081 




1082 




1083 




108* 




1085 




1086 


000004 


1087 


000006 


1088 


0000 10 


1089 


000014 


1090 


000016 


1091 




1092 




1093 




1094 




1095 




1096 




1097 


00OO01 


1098 


00O013 


1099 


177730 


1100 


000006 


1101 


000177 


1102 


100200 


1103 




1104 




1105 




1106 




1107 





Sl.IEOT 

Sl.IIDENT 

Si.ICER 

Sl.IFMK 

Sl.IHER 

SO.ISPEED 

SO,IRDY 

SO.IONL 

SO^ILDP 

SO.IOBY 

SO.IRWO 

SO.IFBY 

SO.IFPT 



BIT12 

BIT11 

BIT10 

BIT9 

BIT8 

BIT7 

BIT6 

BIT5 

BIT4 

BITS 

BIT2 

BIT1 

BITO 



i 



SPECIAL KEYBORD STUFF FOR MOVER 



TKS 
TKB 
TPS 
TPB 
HIHEM 



177560 

177562 

177564 

-177566 

-007776 



CONTROLLER DEFINITIONS 



CSR 
BAR 
DAR 
MPR 



174400 
174402 
174404 
174406 



CONTROLLER COMMANDS 





DLGETS 


-4 




SEEK 


•6 




DLRDHO 


-10 




READ 


-14 


J 
; 


DLRDNH 


-16 



READY 


-1 


DLSR 


-13 


DLERR 


•177730 


DLUN 


-6 


DLCYL 


-000177 


DLDNER 


-100200 



SEQ 32 



IEOT L 
IIOENT H 
ICER H 
IFMK H 
IHER H 
WORD OQ BYTE ISPEcD H 
IRDY L 
IONL L 
ILDP L 
IDBY L 
IRWD L 
IFBY L 

IFPT L 

PROGRAM 

KEYBOARD STATUS REGISTER 
KEYBOARD DATA REGISTER 
CONSOLE PRINTER STATUS REGISTER 
CONSOLE PRINTER DATA REGISTER 
HIGH MEMORY MASK VALUE 



I STATUS AND CONTROL REGISTER 
iDL ADDRESS REGISTER 
j PLATTER ADDRESS 
{MULTIPURPOSE REGISTER 



jGET STATUS COMMANO 

j SEEK TRACK AND HEAD SELECT 

{READ SECTOR HEADER 

j READ COMMANO 

{READ SECTOR NO HEADER CHECK 



ROMBASE 



MOVER 



iDRIVE READY BIT IN STATUS REG 

{STATUS AND RESET 

,MASK FOR COVER OPEN 

{HEADS UNLOADED 

{MASK FOR CYLINDER ADDRESS 

{DONE SET OR ERROR SET BITS 



{START OF THE BOOT ROM SASSS 



H3 
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SEQ 33 



1108 


177560 


1109 


177562 


1110 


177564 


1111 


177566 


1112 





TTICSR 
TTIBFR 
TTOCSR 
TTOBFR 



177560 
177562 
177564 
177566 



jKEYBOARD INPUT STATUS 
iKEYBOARD DATA REGISTER 
I CONSOLE PRINTER STATUS REGISTER 
I CONSOLE PRINTER DATA REGISTER 



13 



CZTKHA TK-25 FRT END FUNC 04 
SPECIAL MACROS AND OPDEFS. 

1114 
1115 

1116 

1117 

1118 

1119 

1120 

1121 

1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

3135 

1136 

1137 

1138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 

1161 

1162 

1163 

1164 

1165 

1166 

1167 

1168 

1.169 

11/0 
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SEU 34 



.SBTTL SPECIAL MACROS AND OPDEFS 



{SAVE GENERAL REGS 1 TO 5 

.MACRO SAVREG 
JSR R5.REGSAV 
.ENDM 



! 'MACRO TO FORCE AN ERROR 

.MACRO FORCERROR TAG.NOTSSR 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

.IF B NOTSSR 

MOV TSSR(R5),R1 
■ ENOC 

MOV FORCER, FORCER 

BNE TAG 
.NLIST 

.IIF" NOF LISTALL, .LIST 
.LIST 
.ENOM 



jREAD TSSR 

»IS FORCER SET? CLEAVE C BIT ALONE; 
jBR IF YES 



I ♦ 

j MACRO TO FORCE AN EXIT TO AVOID SECTION ITERATIONS 

i WILL EXIT TO A LABE' IF FORCER IS NEGATIVE 

j SO TO FORCE ERRORS AND EXIT ON 1 ERROR SET 

{ FORCER TO 177777 

i TO FORCE ERRORS AND ITERATIONS SET FORCER TO 1. 

! MACRO FORCEXIT TAG 

.NLIST 

.IIF NOF LISTALL, .NLIST 

.LIST 

MOV FORCER, FORCER iIS FORCER NEGATIVE? 

BMI TAG iBR IF YES 

.NLIST 

.IIF NOF LISTALL, .LIST 
.LIST 
.ENDM 

I MACRO TO INCREMENT ERROR COUNTS 

i - 

.MACRO NEXT.ERRNO 

.NLIST 

I i i, IIF NDF LISTALL, .NLIST 

ERRNO-ERRNO*1 
j j t .IIF NDF LISTALL, .LIST 
.LIST 
.ENDM 

I ♦ 



C2TKHA TK-25 FRT END FUNC 04 
SPECIAL MACROS AND OPDEFS. 



1171 
1172 
1173 
1174 
1175 
1176 
1177 
1178 
1179 
1180 
1181 
1182 
1185 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
1192 
1193 
1194 
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SEQ 35 



000000 



.MACRO 


XOR A.B 


MOV 


A, -(SP) 


BIC 


B.CSP) 


BIC 


A.B 


BIS 


(SP)*.B 


.ENDM 




EN-0 




.SBTTL 


FORCER - F 



, INITIALIZE ERROR NUMBER 
- FORCE ERROR FLAG 



TKE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 



002146 000000 



FORCER:; 



i FORCE TYPE ALL HARD ERRORS (THE ONES CALLED 
> - BY THE MACRO "IFERROR"). AN ERROR NEED NOT - 
j • EXIST, JUST ASSUME AND TYPE THE MESSAGE. 



!<3 



CZTKHA TK-25 FRT FND FUNC 44 
GLOBML DATA SECTION 

1196 

1197 

1198 

1199 

1200 

1201 

1202 

1203 

1204 

1205 

1206 

1207 002150 OOOOOO 

120tt 002152 OOOOOO 

1209 002154 OOOOOO 

1210 002156 OOOOOO 

1211 002160 000224 

1212 002162 000200 

1213 002164 OOOOOO 

1214 002166 OOOOOO 

1215 002170 OOOOOO 

1216 0021~>2 OOOOOO 

1217 002174 OOOOOO 

1218 002176 OOOOOO 

1219 002200 OOOOOO 

1220 002202 OOOOOO 

1221 002204 OOOOOO 

1222 002206 OOOOOO 

1223 002210 

1224 002250 OOOOOO 

1225 002252 OOOOOO 

1226 002254 OOOOOO 

1227 002256 OOOOOO 

1228 002260 OOOOOO 

1229 002262 OOOOOO 
1250 002264 OOOOOO 

1231 002266 OOOOOO 

1232 002270 

1233 002434 

1234 002600 

1235 002/20 OOOOOO 
1236 

1237 002722 OOOOOO 



MACRO M1200 20-APR-84 08:13 PAGE 27 



.SBTTL GLOBAL DATA SECTION 



SEQ 36 



{THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
j IN MORE THAN ONE TEST, 

l -- 



THE FOLLOWING DATA ARE SET FOR EACH UNIT AT INIT TIME. 
SINGLE UNIT DEFAULTS (LISTED) ARE IN THE DEFAULT P-TABLE. 



EPRTSUj : 

UNITN:: 

QVP:: 

CSRADDR:: 

IVEC: i 

IPRI: : 

TSTCNT: 

LOOPCNT 

DEVCNT ; 

FATFLG: 

INTRECV 

BENBSW: 

EXPDt 

RECV: 

ERRHI 

ERRLO 

RAMDATA: : 

RAMSIZ: : 

RCVHIADD;: 

RCVLOADD: : 

COUNT:: 

DATA;: 

TSTFLAG:: 

TSTPTR:: 

PRMNO: : 

EXPMSG: : 

RECMSG: : 

TMPBFR: : 

MES8FA: : 

KLLTSWj : 



.WORD 





.WORD 





.WORD 





.WORD 





.WORD 


224 


.WORD 


PRI04 


.WORD 





.WORD 





.WORD 





,WORD 





.WORD 





.WORD 





.WORD 


C 


.WORD 





.WORD 





.WORD 





,BLKW 


16. 


.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.WORD 





.BLKB 


100. 


.BLKB 


100, 


.BLKB 


80. 


.WORD 






,WORD 



PRINT SWITCH 

UNIT * UNDER TEST. 

QUICK VERIFY FLAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 

INTERRUPT VECTOR 

INTERRUPT PRIORITY, 

NUMBER OT TESTS PUN IN THIS PASS 

REMAINING ITERATION COUNT FOR TEST 

NUMBER OT DEVICE UNDER TEST 

SET IF FATAL ERROR IS DETECTED IN TEST 

SET IF TAPE INTERRUPT WAS RECEIVED 

BUFFER ENABLE SWITCH SW 0-OFFjl-ON 

EXPECTED RAN DATA Fno PRAMPKT ROUTINE 

RECEIVED RAM DATA FOR PRAMPKT ROUTINE 

HIGH ADORESS MEMORY ERROR 

LCW ADORESS MEMORY TRROR 

DATA READ FROM RAM PACKET OP MESSAGE BUF AREA 

SAM DATA SIZE FOR PRAMPKT ROUTINE 

RECEIVED BUFFER HIGH ADORESS 

RECEIVED BUFFER LOW ADDRESS 

TEST COUNT PATTERN 

TEST DATA 

TEST FLAG WORD 

TSTBLK POINTER 

PRINT ROUTINE TEMP 

EXPECTED MESSAGE BUFFER DATA 

RECEIVED MESSAGE BUFFER DATA 

TEMPORARY STORAGE FOR PRINT 

STORES ADDRESS OF MESSAGE DUFFER FOR ERR PRT 

0-1ST PASS, NON-ZERO- OTHER (FAULT MES) 



CZTKHA TK-25 FRT EN 
TSTBLK - TEST DATA 



w tW 



1239 






1240 






1241 






1242 






12 43 






ir.-v; 






1245 






1246 






124 7 






1248 






1249 






1250 






1251 






1252 






1253 






1254 






1255 


002724 




1256 


002724 


000000 


1257 


002726 


177777 


1258 


002730 


000001 


1259 


002732 


00O0O2 


1260 


OC2734 


000004 


1261 


002736 


000010 


1262 


002740 


000020 


1263 


002742 


000040 


1264 


002744 


000 lOO 


1265 


002746 


000200 


1266 


002750 


000400 


1267 


002752 


OOIOOO 


1268 


002754 


002000 


1269 


002756 


004000 


1270 


002760 


010000 


1271 


002762 


0200OO 


1272 


002764 


040000 


1273 


002766 


100000 


1274 


002770 


177776 


12/5 


002772 


177775 


1276 


002774 


177773 


1277 


002776 


177767 


1278 


0030OO 


177757 


1279 


003002 


177737 


1280 


003004 


177677 


1.181 


003006 


177577 


1282 


003010 


177377 


1283 


003012 


176777 


1284 


003014 


175777 


1285 


003016 


173777 


1286 


003020 


167777 


1287 


003022 


157777 


1288 


003024 


137777 


1289 


003026 


077777 


1290 


003030 


125252 


1291 


003032 


052525 


1292 




003034 



L3 
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.SBTTL TSTBLK - TEST DATA TABLE 

* 

THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 

IN SEQUENCE THE DATA IS: 

ALL ZEROS 

ALL ONES 

WALKING ONES 

WALKING ZEROS 

ALTERNATING ONES AND ZEROS 



SEQ 37 



TSTBLK:; 




.WORD 





.WORD 


177777 


.WORD 


BITO 


.WORD 


BIT1 


.WORD 


BITO 


.WORD 


BIT3 


.WORD 


BIT4 


.WORD 


BIT5 


.WORD 


BIT6 


.WORD 


BIT7 


.WORD 


BIT8 


.WORD 


BIT9 


.WORD 


BIT10 


.WORD 


BIT11 


.WORD 


BIT12 


.WORD 


BIT13 


.WORD 


BIT14 


.WORD 


BIT15 


.WORD 


tcano 


.WORD 


tCBITl 


.WORD 


tCBIT2 


.WORD 


tCBIT3 


.WORD 


VCBIT4 


.WORD 


tCBIT5 


.WORD 


tCBIT6 


.WORD 


tCBIT7 


.WORD 


tCBIT8 


.WORD 


tCBIT9 


.WORD 


tCBITIO 


.WORD 


tCBITll 


.WORD 


tCBIT12 


.WORD 


tCBIT13 


.WORD 


tCBITl4 


.WORD 


tCBITIS 


.WORO 


125252 


.WORD 


052525 


TBIEND»». 





j ALL ZEROS 

i ALL ONES 

j DATA FOR WALKING ONES 



; DATA FOR WALKING ZEROS 



j ALTERNATING ONES, 
j ALTERNATING ONES, 



ZEROS 

ZERO OPPOSITE FROM ABOVE 



M3 



CZTKHA TK-£5 FRT END TUNC 44 
GLOBAL ENVIRONMENT STORAGE 



1294 






1295 






1296 






1297 






1296 


003034 


000000 100000 


1299 


003044 


000000 000000 


1300 






1301 






1302 






1303 


003064 


000000 


1304 






1305 


003066 


000000 


1306 






1307 


003070 


000000 


1308 


003072 


000000 


1309 


003074 


000000 


1310 


003076 


oooooo 


1311 


003100 


000000 


1312 


003102 


oooooo 


1313 


003104 


oooooo 


1314 






1315 






1316 


003106 


oooooo 


1317 


003110 


002000 


1318 


003112 


oooooo 


1319 


003114 


oooooo 


1320 


003116 


oooooo 


1321 


003120 


oooooo 


1322 


003122 




1323 


003122 


oooooo 


1324 


003124 


oooooo 


1325 


003126 


oooooo 


1326 


003130 


oooooo 


1327 


003132 


177777 


1328 


003134 




1329 






1330 






1331 






1332 






1333 






1331 






133*5 






1336 






1337 






1338 


003134 




1339 


003334 


oooooo 


1340 






1341 


003336 


oooooo 
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.SBTTL GLOBAL ENVIRONMENT STORAGE 
! STORAGE FOR DEVICE REGISTERS 

DUMMY DEVICE REGISTERS... 
,..F0R MULTI-UNIT CHECKOUT 



SEQ 38 



OOOOOO DUMMY : , 100000 ,0,0 
OOOOOO 0,0,0,0,0,0,0,0 



DUFLG:: 

NODEV t : 

TEMPI; 
TEMP2: 
XXCOMM 
FREE i t 
FRESIZ 
FREEHI 
KTFLG; 



KTENABLE 

PST32W 

SIFLAG 

BADDAT 

GDDAT: 

LOOPFL 

CTAB:: 

CTABM: : 



CTABE: ; 



.WORD 

.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



.WORD 
.WORD 
.WORD 
.WORD 
.WORD 
.WORD 

.WORD 
.WORD 
.WORD 
.WORD 
.WORD 



















2000 
















"DROPPEn UNIT" FLAG. 
INHIBITS CODE IN "CLEAN-UP". 
FLAG TO SAY NO DEVICE. 

SOME TP'P LOCATIONS. 

XXDP* COMM BLOCK POINTtR. 
1ST FREE MEMORY ADDRESS... 
...AND SIZE CIN WORDS;. 
LAST WORD IN FREE SPACE 
KT11. M6M AVAIL FLAG - 

- .WORD - <24K OR NO KT » 

- NZ - >24K ANO KT. 

SET BY TEST ROUTINES TO FLAG >28K UNDER TEST 
32W BLOCK ADDRESS FOR 32K START 

ACTUAL DATA 
EXPECTED DATA 

CONFIGURATION TABLES. 
CONFIG WORK. 



ERROR STATISTICS TABLE (1 WORD 



;END OF MEM TABLE. 
PER UNIT) , 64 UNITS MAX: 





100000 

10XXXX 

160000 

160001 

14XXXX 



UNIT NOT TESTED 

UNIT ONLINE, NO ERRORS 

UNIT ONLINE, ENCOUNTERED XXXX ERRORS 

UNIT DROPPED, NON-EXISTENT ^VICE REGISTER 

UNIT DROPPED, NOT IDLE AT Si ART 

UNIT DROPPED, ENCOUNTERED XXXX ERRORS 



ERTABL: 
ERTABE: 



.BLKW 
.WORD 



64, 




SKIPTt .WORD 



tl*SKIP SUBTEST 0*NO SKIP OF SUBTEST 



CZTKHA TK-25 FRT END FUNC #4 
GLOBAL TEXT MESSAGES 



1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 003340 
003340 
003340 
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SEQ 39 



124 



U3 



055 



1357 

1358 

1359 

1360 

1361 003346 
003346 
003346 



1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
13S2 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 
1^93 



103 



132 



124 



003404 
003424 
003444 
003447 
003453 
003457 
003463 
003467 
003473 
003500 
0O3505 
003511 
003515 
003522 
003527 
003534 
003541 
003546 

003554 
003607 
003642 
003701 
003722 
003762 



003444 
003505 
123 
102 
123 
122 
116 
116 
102 
102 
123 
117 
102 
102 
102 
102 
102 
102 

124 
124 
040 
045 
045 
045 



003447 
003511 
103 
111 
103 
115 
130 
102 
111 
111 
123 
106 
111 
111 
111 
111 
111 
111 

123 
123 
040 
101 
101 
101 



003453 
003515 
000 
105 
105 
122 
115 
101 
124 
124 
122 
114 
124 
124 
124 
124 
124 
124 

125 
12,3 
11j6 

040 
04 
040 



.SBTTL GLOBAL TEXT MESSAGES 



f * 



{ THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
i MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
} MORE THAN ONE TEST. 



j NAMES OF DEVICES SUPPORTED 



OEVTYP <TK-25> 
L$DVTYP:: 

.ASCIZ /TK-25/ 
.EVEN 



j TEST DESCRIPTION 

DESCRIPT <CZTKHA TK-25 FRT END FUNC *4> 
L*DESP:: 

.ASCIZ /CZTKHA TK-25 FRT END FUNC #4/ 
.EVEN 



jBIT TO ASCII CONVERSION FOR TSSR REGISTER 
i - 

TSSRBIT:: .WORD II .2$ .31 .4$ .5*. 6$ . 7$ .8$ 

. 'JORD 9$ , 10$ , 11$ , 12$ , 13$ , 14$ , 15$ , 16$ 

1$: .A3CXZ ' . -' 

2$: .ASCIZ 'BIL 

3$: .ASCIZ ' "CE 1 

4$: .ASCIZ ' RhP' 

5$: .ASCIZ 'NXM' 

6$: .ASCIZ 'NBA' 

7*; .ASCIZ 'BIT9' 

8$: .ASCIZ 'BIT8' 

9$: .ASCIZ 'SSR« 

10$: .ASCIZ •OFL' 

lilt .ASCIZ 'BIT5' 

12$: .ASCIZ 'BIT4' 

13$: .ASCIZ 'BITS' 

14$: .ASCIZ 'BIT2' 

15$: .ASCIZ 'BIT1' 

16$: .ASCIZ 'BITO' 

.EVEN 

SFIERR: .ASCIZ * TSSR ERROR AFTER SOFT INIT' 

SFHERR: .ASCIZ 'TSSR ERROR AFTER BUS RESET 1 

NXR: .ASCIZ / NON-EXISTANT DEVICE REGISTER/ 

NXRX: .ASCIZ /*A ADDRESS: *06/ 

TSSX; .ASCII /*A TSBA.TSSR EXP'D: #06#A,#0*>*N/ 

.ASCIZ /*A TSBA.TSSR REC'D: *06*A>06/ 



CZTKHA TK-25 FRT END FUNC *4 
GLOBAL TEXT MESSAGES 



MACRO M1200 
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SEQ 40 



1394 
1395 
1396 
1397 
1396 
1399 
1400 
1401 
1402 
1403 
1404 
1405 
1406 
1407 
1406 
1409 
1410 
1411 
1412 
1413 
1414 
1415 
1416 
143 1 
1416 



004021 
004025 
004054 
004117 
004123 
0O4160 
004202 
004237 
0O4311 
004361 

004431 
004432 
0O4435 
004471 
0O4545 
004647 
0O4715 
0O4 760 
005015 
005110 



045 
040 
040 
045 
040 
040 
045 
040 
040 
040 

000 
045 
045 
045 
045 
122 
040 
127 
124 
124 



116 
040 
040 
116 
040 
040 
101 
040 
040 
040 



116 
101 
116 
101 
101 
040 
122 
123 
125 



045 FUSI: .ASCII /tfNtfA/ 

125 USIj .ASCIZ / UNEXPECTED INTERRUPT/ 

111 NSI: , ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 

045 FNOINTRj .ASCII /#N#A/ 

116 NOINTRj .ASCIZ / NO INTERRUPT WAS GENERATED/ 

111 IFAULTt .ASCIZ / INTERRUPT FAULT/ 

040 INTXi .ASCIZ /*A L*-U PC j #06#A TSBAi #06/ 

042 NOINITj .ASCIZ / "BUS-INIT" DIDN'T INITIALIZE CONTROLLER/ 

042 NSINITi .ASCIZ / "50FT-INIT" DIDN'T INITIALIZE THE DPU/ 

042 BRINITj .ASCIZ / "BUS-RESET" DIDN'T INITIALIZE THE DPU/ 

NULi .ASCIZ // 

000 NULCRt .ASCIZ /*N/ 

040 EXPGOTi .ASCIZ /*A EXP'Dt #06#A, REC'Di 1*06/ 

045 EXPGT2: .ASCIZ /*N#A EXP'D: *06#A, #06#N#A REC'O: #0#A. #06/ 

040 DUAD12: .ASCIZ /#A REG(W> WRITTEN TO: #06*A REG(R) REAOi EXPDs #06*A, REC'Di *06/ 

115 PKTRAMm .ASCIZ 'KAM Contents Do Not Natch Packet S«nt' 

103 SCHEi .ASCIZ / CONFIG DOESN* T MATCH MFG. MASTER/ 

111 WRTMSG: .ASCIZ 'WRITE CHARACTERISTICS Fail**' 

123 WRTERR? .ASCIZ * TSSR Incorrect AfUr WRITE ConwH^d, Mor« Btt* S«t Than S5R' 

123 ROERRi .ASCIZ 'TSSR Incorrect Afttn READ Commend, Mor« Bit* S«t Then SSR 1 
♦ feVEN 



C4 



him im md^sim^ 
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SEQ 41 



1420 
1421 
1422 
1423 
1424 
1425 
1426 
1427 
1428 

1429 



1430 
1431 



1432 
1433 
1434 
1435 
1436 
1437 
143« 
1439 
1440 
1441 
1442 



005202 
005202 
005202 
005202 
005206 
005212 
005216 
005220 
005222 
005226 
005232 
005232 
005232 



1443 



005234 
005236 
005240 
005242 
005246 
005246 
005252 
005256 
005260 
005262 
005266 



013746 
012746 
012746 
010600 
104415 
062706 
004737 



104423 



005727 
000000 
001402 

004777 

012746 
012746 
010600 
104415 
062706 
000207 



003066 
003701 
000002 



000006 
005234 



177770 

004432 
000001 



000004 



.SBTTL GLOBAL ERROR REPORT SECTION 



THE GLOBAL ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 

CALLS THAT ARE USED IN MORE THAN ONE TEST. 

ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 



BGNMSG NXRERR 



NXRERRj; 




PRINTX 


tNXRX.NODEV 


MOV 


NOOEV,-(SP) 


MOV 


♦NXRX.-(SP) 


MOV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


♦6.SP 


JSR 


PC.EXTENO 


ENOMSG 





jNON-EXISTANT DEVICE REGISTER. 
jNODEV - NEXM ADDRESS. 



I PRINT EXTENSION IF REQUIRED. 



L 10002 t 



TRAP 



CIMSG 



i THIS ROUTINE APPENOS A UNIQUE EXTENSION (IF REQUIRED) 
I TO ANY OF THE ABOVE ERROR SIGNATURES. 



I - NO EXTENSION. 



EXTEND; 


TST 


(PC)* 


EXTA: 









BEQ 


It 




JSR 


PC.8EXTA 


U; 


PRINTX 


#NULCR 




MOV 


•NULCR.-(SP) 




MOV 


♦ 1,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTX 




ADD 


♦4.SP 




RTS 


PC 



, APPEND EXTENSION TEXT, 
j PRINT A BLANK LINE 



D4 
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SEQ 42 



1446 








1447 








1448 








1449 








1450 








1451 








1452 








1453 








1454 








1455 








1456 








1457 








1458 








1459 








1460 








1461 








1462 








1463 








1464 


005270 






1465 


005270 






1466 


00527-1 


010104 




1467 


00 !>£>**) 








Oi'*!v? ■:■■«*» 


010446 






oo:.i jo 


05.7746 


W>'.112 




I'^'i^N 


012746 


000002 




Oi)v.3vO 


oietoo 






00---.;: 


104414 






C'yi.vn 


062706 


000006 


l^r) 


005520 


010400 




14( r ; 


or.;>>2? 


004737 


016720 


'.-A 70 


fV;:V5^ti 


103410 




i4 : : 


I MS. < 50 








'jO^SO 


012746 


006332 




005334 


012746 


000001 




.■i>:»MO 


010600 






0»^342 


104415 






i. "05344 


062706 


000004 


1^ iU 


IV3S350 


010403 




In '•- 


:R5352 


042703 


001476 


!47'i 


». C: b'56 


001434 




14. -Si 


0053*0 


012702 


002600 


14 (h 


005364 


012701 


003404 


14 V,' 


005570 


005703 




147;* 


WSS72 


001413 




14 /<> 


\\o374 


000241 




3-WJ 


OC5376 


006103 






D35400 


103006 




;.*»&-.• 


U»05402 


011100 




i^ : ,, 


C05404 


112022 




3 '. r.- ■: 


'05406 


001376 




i4A5 


003410 


112762 


000054 


1186 


005416 


005721 




if. A 7 


r^5420 


000763 




* 1 -*J» 


005422 


105042 




Usl 


005424 








O05424 


012746 


002600 




005430 


012746 


006303 



177777 



.SBTTL PRITSSR - PRINT TSSR CONTENTS 



ROUTINE TO DISPLAY THE CONTENTS, ANO BIT DEFINITIONS, Of 
THE TSSR REGISTER, THIS ROUTINE IS NORMALLY CALLED ONLY 
BY A MESSAGE PRINTING ROUTINE 



INPUTS; 



Rl 



CONTENTS Of TSSR 



SUBORDINATE ROUTINES: 

CHKAMB CHECK FOR AMBIGUOUS CONTENTS 



PRITSSR j 

SAVREG 

MOV R1.R4 

PRINTB *TSSRF0R,R4 

MOV R4.-CSP) 

MOV #TSSRFOR,-CSP) 

MOV #2,- SP) 

MOV SP.RO 

TRAP CIPNTB 

ADO #6 ♦ SP 

MOV R4.R0 

JSR PC. CHKAMB 

BCS 5$ 

PRINTX tAMBTSSR 

MOV tAMBTSSR, -CSP) 

MOV Ut-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD #4 , SP 

5$: MOV R4.R3 

BIC fHIADDR ! FATERR » TERCLS 

BEQ 20$ 

MOV *TMPBFR,R2 

MOV *TSSRBIT,R1 

10$ { TST R3 

BEQ 15$ 

CLC 

ROL R3 

BCC 13$ 

MOV (Rl).RO 

11$: MOVB (R0)»,(R2)* 

BNE 11$ 

M0V8 ♦ *,.1CR2) 

15$: TST (Rl)* 

BR 10$ 
15$: CLRB (R2) 

PRINTX «TSSDEF , OTMPBFR 

MOV *TMPBFR $ -(SP) 

MOV 0TSSDEF.-ISP) 



»SAVE GENERAL REGISTERS 
l SAVE THE TSSR CONTENTS 
jPRINT THE CONTENTS OF TSSR 



iGET TSSR BACK FOR CHKAMB 
i ARE CONTENTS AMBIGUOUS ? 
, BRANCH IF NOT 
l SHOW CONTENTS ARE AMBIGUOUS 



iCONTENTS OF TSSR 
,R3 jCLEAR ALL MULTIPLE BIT FIELDS 
»N0 BITS ARE SET 
j TEMPORARY ASCII BUFFER 
, ASCII EQUIVALENT OF BITS 
^REMAINING BITS TO CONVERT 
I BRANCH WHEN ALL ARE DONE 
I CLEAR CARRY FOR SHIFT 
, SHIFT NEXT BIT TO CARRY 
tBRANCH IF BIT NOT SET 
iPOINTER TO BIT DEFINITION 
iMOVE ASCIZ TO BUFFER 
I MOVE ALL BITS 

i INSERT A COMMA TO TERMINATE 
iPOINT TO NEXT DESCRIPTION 
,GET THE REMAINING BITS 
I TERMINATE THE LINE 
jPRINT THE BIT DEFINITIONS 



CZTKHA TK-25 FRT END FUNC *4 
PRITSSR - PRINT TSSR CONTENTS 
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SEQ 43 



1490 
149V 
14*2 
1493 
1494 



'495 

1407 
1498 
.1499 
150O 
1*501 
1502 



1503 
1504 

1503 
1506 
1507 



150=4 
IS 09 
I'JIO 
I5il 
IM2 
3.:H3 
1514 
5 515 



1516 
It'i 17 

r:>.\6 

1519 



003434 
005440 
005442 
005444 

005450 

C05452 

005456 

005462 

005462 

005464 

OOS470 

C05474 

005476 

005500 

005504 

005506 

005512 

005514 

005516 

005520 

005522 

005526 

005526 

G05530 

005534 

005540 

005542 

005544 

005550 

005556 

('■05560 

005564 

005566 

005566 

005570 

005574 

'W560C 

005602 

005604 

"05610 

005614 

005616 

005624 

OO56S0 

005632 

005640 

005646 

005646 

005652 

005656 

005660 

005662 

00-1,666 

005674 

005676 



012746 
010600 
104415 
062706 

010403 
042703 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
010403 
042703 
001421 
006203 
006203 
006203 
016303 

010346 
012746 
012746 
010600 
104415 
062706 
012737 
010403 
042703 
001411 

010346 
012746 
012746 
010600 
104415 
062706 
022704 
001003 
012737 
005737 
001003 
012737 
013737 

012746 
012746 
010600 
104414 
062706 
012737 
000207 

045 



000002 



000006 



177761 
006374 



006173 
000002 



0OOO06 
177717 

006734 



006234 
000002 



000006 

0OO031 002172 

176377 



0O6132 
000002 



000006 
100210 

006021 002150 
002150 



20$i 



25$ j 



301: 



31$: 



005676 002150 
002150 005650 310$: 

32$} 
005676 
000001 



000004 

005676 002150 



MOV 02, -(SP) 

MOV SP»RO 

TRAP CIPNTX 

ADD *6,SP 

MOV R4,R3 

BIC *tCTERCLS,R3 

MOV TC0C00(R3) t R3 

PRINTX «TC0ASC,R3 

MOV R3.-CSP) 

MOV ♦TCOASC.-CSP) 

MOV *2,-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ADD #6 , SP 

MOV R4.R3 

BIC <KCFATERR,R3 

BEQ 25$ 

ASR R3 

ASR R3 

ASR R3 

MOV TSFC0DCR3).R3 

PRINTX #TFCASC,R3 

MOV R3.-CSP) 

MOV #TFCASC,«CSP) 

MOV #2.-(SP) 

MOV SP.RO 

TRAP CIPNTX 

ADO #6,SP 

MOV #25..FATFLG 

MOV R4.R3 

BIC ♦tCHIA00R,R3 

BEQ 30$ 

PRINTX #TEXASC.R3 

MOV R3.-CSP) 

MOV #TEXASC,-(SP) 

MOV 02.-CSP) 

MOV SP.RO 

TRAP CIPNTX 

ado ♦<:. , SP 

CMP «100210,R4 

BNE 31$ 

MOV #EPRT3. EPRTSW 

TST EPRTSW 

BNE 310$ 

MOV ♦EPRT1, EPRTSW 

MOV EPRTSW, 32$ *2 

PRINTB 0EPRT1 

MOV •EPRTl.-CSP) 

MOV #1, (SP) 

MOV SP.RO 

TRAP C$PNTB 

ADD *4 , SP 

MOV 0EPRT1. EPRTSW 

RTS PC 



iGET THE TSSR CONTENTS 

j CLEAR ALL BUT TERMINATION 

I GET THE TERMINATION CODE MEANING 

i PRINT THE TERMINATION CODE 



I TSSR CONTENTS AGAIN 

i CLEAR ALL BUT FATAL TERMINATION 

jDON'T PRINT IF ZERO 



j ALINE TERMINATION COOE FOR INOEX 
I GET THE FATAL TERMINATION COOE 
i PRINT THE FATAL TERMINATION CODE 



,DROP THIS UNIT AFTER ERROR MESSAGE 

»GET TSSR CONTENTS 

i CLEAR ALL BUT EXTENDED ADDRESS 

i DON'T PRINT IF ZERO 

;PRINT THE E> TENDED ADDRESS BITS 



, CHECK FOR MEDIA EttROR 

»BR, IF PROBABLY NOT TAPE ERROR 

j "PROBABLY MEDTA RELETED ERROR - BAD TAPE" 

l CHECK FOR THE SWITCH EMPTY 

jBR, IF SWITCH IS NOT EMPTY 

I SET SWITCH TO DEFAULT 

I PUT REAL SWITCHABLE MESSAGE IN PLACE 

, PRINT THE ERROR MESSAGE 



t RESET TO NORMAL ERROR POINTER 
{ RE TURN TO CALLER 



116 



045 EPRTlt ,ASCIZ l *N#A *****CHE.CK TRANSPQRT******S 



CZTKHA TK-25 FRT END FUNC *4 
PRIYSSR - PRINT TSSR CONTENTS 



JScO 
1521 

1523 
1524 

15?S 

1526 
1527 

iiv->8 

15*0 
15M 
lb -.12 
:» 53* 
3S54 
1555 
3b56 
1537 

15<8 

J.S40 
1541 

J543 

i:-;44 

1W5 



005737 
OC6021 
006112 
0O6132 
006173 
006234 
0O6303 
006332 

006374 
006*14 
006437 

006465 
006507 
006527 
006611 
006660 
006704 



006734 

006744 
007000 
007011 
007055 



045 
045 
045 
045 
045 
045 
045 
045 

006414 
116 
124 
124 
106 
122 
122 
125 
106 



006744 
111 
122 
102 
122 



116 
116 
116 
116 
116 
116 
116 
116 

006437 
157 
145 
141 
165 
145 
145 
156 
141 



007000 
156 
145 

165 
145 



MACRO M1200 20-APR-84 08tl3 



F4 

PAGE 33-2 



SEQ 44 



045 
045 
045 
045 
045 
045 
045 
045 

006465 
162 
162 
160 
156 
143 
143 
162 
164 



007011 
164 
163 
163 
163 



EPRT2: 

EPRT3; 

TSSRFOR: 

TEXASC 

TCOASC 

TFCASC 

TSSOEF 

AMBTSSR: 

TCOCOO: 

1$ 

2$ 

31 

4$ 

5* 

6$ 
7$ 
8* 



TSFCOO: 
2$: 



.ASCIZ 
.ASCIZ 



4$: 



.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.EVEN 

.WORD 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.EVEN 



**>*A *****CHECK PARITY SWITCH IN TRANSPORT******^' 

<*H*A *****P0SSIBLE MEDIA RELATED ERROR - BAD TAPE*****#S 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



'*N*A 
•*N*A 
'tfNtfA 
'#N*A 
•*N#A 
•*N*A 



TSSR ■ •'G6 ' 

Extended Address Bit* - n*06' 

Termination Class Cod* ■ *>T' 
Fatal Termination Class Code 
TSSR Bite Sat: #T* 
TSSR Contante Are Ambiguous' 



«T 



l*.2* ( 3$,4$,5l f 6$,7$.8$ 
'Normal Termination' 
•Termination Condition' 
• Tapa Statua Alart' 
'Function Reject' 
' Recoverable Error - Tap* 
'Recoverable Error - Tape 
' Unrecovarebl* Error* 
'Fatal Controller Error' 



Position One Record Down 
Was Not Moved' 



l$ t 2$,3l,4$ 

•Internal Diagnostic 

•Reserved' 

'Bus Interface or Sanity 

' Reserved' 



Fai lure' 

Check Error 



G4 



CZTKHA T!'v-*;j 



PRIPKT 

154 7 
1543 

1549 
1550 
I5:u 

155^ 
1553 
15W 
1553 
V55G 

155 V 
1555 
15f/> 
1560 
1561 
1562 
156? 
1564 
1565 
1566 
1567 
156ft 
1569 
15/0 
1571 
1572 



_ FRT END FUNC 04 MACRO M1200 20-APR-84 06; 13 PAGE 34 
PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



SEQ 45 



157 3 
1574 
1575 
1576 
1577 
1576 
1570 
1580 



15*11 

1362 

1585 
1584 



007066 
r 07066 
C 07072 
t: )7074 
DC 7100 
■ -O7102 
007104 
•.-('7106 

oon.ro 

".•7112 
(07114 
-7114 
^711.6 
00/120 
•'. 07124 
007130 
007132 
^:V7154 
•Hy/140 

■ocn.42 

t >7U* 
<*'Vl46 

uu;\52 

Of 7 154 
: i»?156 
00/160 
<",;)7160 

o;. v /i62 

OJ7164 
0')7170 

<;')7i h\ 

;.o."> .'<> 
i- >/;"!00 

''0/204 
00/206 
'»07210 
* ,07212 
:>'>7212 
i 07216 
00722? 
007224 
007226 



010005 
005737 
001001 
005003 
010301 
010400 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104414 
062706 
010300 
001404 
010401 
0O4737 
010004 
005001 
012402 

010246 
010146 
012746 
012746 

010600 
104414 
062706 
005201 
020105 
002762 

012746 
012746 
010600 
104414 
062706 



.SBTTL PRIPKT - PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 

THIS ROUTINE PRINTS THE ADDRESS ANO CONTENTS OF A COMMAND PACKET ♦ 
THIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT ROUTINE. 



INPUT: 



RO 
R3 
R4 



NUMBER OF WORDS IN PACKET 

HIGH ORDER COMMANO PACKET ADDRESS 

ADDRESS OF COMMAND PACKET 



NOTE: R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 



003106 



007272 
000003 



000010 



020274 



007234 
000003 



000010 



007327 
000001 



000004 



PRIPKT j j 

SAVREG 

MOV 

TST 

BNE 

CLR 

10$: MOV 
MOV 
ROL 
ROL 

PRINTB 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADO 

15$: MOV 
BEQ 
MOV 
JSR 
MOV 

20$; CLR 

25$: MOV 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

CMP 

Bl T 

PRINTB 

MOV 

MOV 

MOV 

TRAP 

ADD 



R0>R5 

KTENABLE 

101 

R3 

R3.R1 

R4 # R0 

RO 

Rl 

♦PKTA0D.R1.R4 

R4.-CSP) 

Rl.-CSP) 

*f>KTADD,-(SP) 

♦3,-CSP) 

SP.RO 

CIPNTB 

*10, SP 

R3.R0 

20$ 

R4.R1 

PC.SETMAP 

R0,R4 

Rl 

(R4)f ,R2 

*f>KTFRM,Rl,R2 

R2.-CSP) 

Rl.-CSP) 

0PKTFRM, -CSfO 

•3,-CSP) 

SP.RO 

CIPNTB 

010.SP 

Rl 

R1.R5 

25$ 

4PKTNEW 

*PKTNEW, -CSP) 

♦l.-CSP) 

SP.RO 

CtPNTB 

04.SP 



» SAVE THE REGISTERS 

i SAVE NO. OF WORDS IN PACKET 

I ABOVE 28K UNOER TEST? 

iBR IF YES 

I SET HIGH ORDER ADDRESS TO 

I COPY HIGH ORDER ADDRESS 

I GET LOWER ADDRESS 

; SHIFT BIT 15 INTO C BIT 

j AND INTO HIGH ORDER. 

I PRINT PACKET ADDRESS 



l GET HIGH ORDER ADDRESS 

i BR IF NOT ABOVE 2QK . 

»GET LOW ORDER ADDRESS 

j SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 

>GET RETURNED PAR6 ADDRESS BIAS 

j SAVE WORD NUMBER 

i GET PACKE T CONTENTS 

i PRINT THE DATA 



>NEXT WORD NUMBER 
tDONE ALL PACKET WORDS? 
j LOOP TILL ALL DONE 
I JUST A COUPLE NEW LINES 



CZTKHfl TK-25 FRT END F'UNC 44 

PRIPUT - ^HINT THE ADDRESS/CONTENTS OF COMMAND PACKET 



H4 

MACRO M1200 20-APR-84 08} 13 PAGE 34-1 



SEQ 46 



1S86 
1537 

Ij&S 
1530 

159L> 



CO 7232 000207 



00 7234 
007272 

007327 



045 
045 

045 



116 
116 

116 



045 
045 



PKTFRM: 
PKTADD: 



045 PKTNEWj 



RTS 

.ASCIZ 
.ASCIZ 

.ASCIZ 
♦ EVEN 



PC 



I RETURN 



*N*A Pack#t Word *#D1*A - #06' 
*N#A Packet Address - *Q1*Q5' 

*N*N*A * 



14 



CVcTKHA J"K 
PRIBXOP - 

I5<>a 

1596 

1 :/> / 
l'J96 

1599 
!6fO 
i.bO*. 
1602 
.160.* 
i 604 

ifcor: 

5 006 
1607 
160 -J 
1609 
If. If; 
16H 
lfcli? 
1015 
lfaW 
161 j 
16 J S 
1617 
161(1 
16l 4 > 
16P0 



16;> i 
16;>v: 

lo:-:s 

lo.i'" 

16;.;; 
lfci. J 6 



25 FRT END FUNC 04 MACRO M1200 
PRINT EXPO, RECV AND XOR BYTE 



007540 
007340 
00/344 
007346 
00735.* 
007362 
00/364 
00736* 
007370 
007370 
00/ 3 .'2 
O07374 
C'073i 6 
00/402 
007406 
0074 10 
0074 12 
v>')7416 
007420 

0074^2 



010203 

012700 
040001 
040002 
040003 

010346 
010146 
010246 
012746 
012746 
010600 
104414 
062706 
010300 
000207 

045 
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.SBTTL PRIBXOR - PRINT EXPO, RECV AND XOR BYTE 



SEQ 47 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 



INPUTS; 



Rl 
R2 



OUTPUT: 



RO 



RECEIVED DATA 
EXPECTED DATA 



XOR OF EXPECTED/RECEIVED DATA 



177400 



007422 
000004 



000012 



116 



045 



PRIBXOR: : 






SAVREG 




iSAVE THE REGISTERS 


MOV 


R2.R3 


lEXPECTED DATA 


XOR 


R1.R3 


jFORM THE EXCLUSIVE 01 


MOV 


*tC<377>, 


RO jBYTE MASK 


BIC 


R0.R1 


iSAVE LOW BYTE RECV 


DIC 


R0.R2 


j SAVE LOW BYTE EXPD 


BIC 


R0.R3 


iSAVE LOW BYTE XOP 


PRINTB 


*XORBFOR, 


R2.R1.R3 , PRINT THE MESSAGE 


MOV 


R3.-CSP) 




MOV 


Rl.-CSP) 




MOV 


R2.-CSP) 




MOV 


«XORBFOR 


■(SP) 


MOV 


♦4,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTB 




ADD 


012.SP 




MOV 


R3.R0 


jRO HAS XOR ON RETURN 


RTS 


PC 


iRETURN TO CALLER 


XORBFQR: 


.ASCIZ 


*N*A EXPD: *03#A RECV: *03tfA 



XOR: *03 



.EVEN 



J4 



C^ilrtA TK-25 FRT ENO FUNC 04 MACRO M1200 
pri'XOR • PRINT EXPD» RECV AND XOR 

.1629 
1630 
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>SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 



SEQ 48 



1031 
163? 
163; 



16 3 r s 
163C 
1637 
1638 
1639 
16 --JO 
164 1 
164;? 
1643 
164-1 
164'., 
1646 
1647 
164ft 
i64<4 
1650 



:6 r .) 

165? 
Ib5* 
16 b? 



007^70 
CO/470 
Oil»M"'4 

0074 76 
'KPSOft 

OO7S06 

ocmo 

0073 1* 

007 ^30 
.'■0'"»'\c 
007540 



010203 



010346 
C10146 
010246 
012746 
012746 
010600 
U>4414 
062706 
010300 
000207 

04b 



PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE TWO 
THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES, 



INPUTS: 



Rl RECEIVED DATA 
R2 EXPECTED DATA 



OUTPUT: 



RO XOR OF EXPECTED/RECEIVED DATA 



PRIXOR:: 



007540 
0C0004 



000012 



116 



04b XORFOR; 



SAVREG j SAVE THE REGISTERS 

MOV R2.R3 jEXPECTED DATA 

XOR R1.R3 iFOPM THE EXCLUSIVE OR 

PRINTB #X0RFOR»R2,Rl t R3 jPRINT THE MESSAGE 

MOV R3.-CSP) 

MOV Rl.-(SP) 

MOV R2.-CSP) 

MOV tXORFOR. -CSP) 

MOV #4 . ' 3D 

MOV SP,RO 

TRAP OPNTB 

ADD #12,SP 

MOV R3.R0 jRO HAS XOR ON RETURN 

NTS PC j RE TURN TO CALLER 

.ASCI/ '*N*A EXPO: *06*A R£CV : *Q6*A XQR { *U6 
.EVEN 



I<4 



CZTKHA TK-25 FRT END FUNC <>4 MACRO M1200 20-APR-84 08s 13 PAGE 37 
PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



SEQ 49 



1657 
1658 
1659 
166C 
1661 
1662 
1663 
1664 
1665 
1666 
1667 

1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
,1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 



.SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 



! ♦ 



ROUTINE TO CONVERT BIT VALUES M ASCII ANO PRINT THE STRING 
THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



INPUTS'. 



RO 
Rl 



OCTAL VALUE TO CONVERT 

TABLE OF POINTERS TO ASCII EQUT ALENT 



007606 
007606 
007612 



PRIEQU: 



000207 



SAVREG 
RTS PC 



»SAVE THc REGISTERS 
j RETURN TO CALLER 



.SBTTL PRIRAM - PRINT RAM ADDRESS 



» PRINT CONTROLLER RAM ADDRESS. 

;THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 



j INPUTS: 



1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1/06 
1707 



007614 
007614 
007620 
007620 
007622 
007626 
007632 
007634 
007636 
007642 

007644 



PRIRAM: 



010446 

012746 007644 

012746 000002 

010600 

104414 

062706 000006 

000207 

045 116 



R4 



SAVREG 

PAINTB 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 



RAM ADDRESS 



*«AMF0R.R4 

R4.-CSP) 

•RAMKOR, -CSP) 

♦2,-lSP) 

SP.RO 

CIPNTB 

*6.SP 

PC 



jSAVE R1-R5 UNTIL NEXT RETURN 
j PRINT RAM ADDRESS IN ERROR 



jmETURN 



045 RAMFOR: .ASCIZ 
.EVEN 



#N*A CONTROLLER RAM ADDRESS - *0t 



.SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FRQM PRINT ROUTINES* 



IMPLICIT INPUTS 



ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 



L4 



CZTKHA TK-25 FRT END FUNC 44 MACRO M1200 

PRIADD - PRINT MEMORY ERROR ADDRESS 



20-APR-84 08:13 PAGE 37-1 



SEQ 50 



1708 






1709 






1710 007706 






1711 007706 






1712 007712 


013700 


002204 


1713 007716 


013701 


002206 


1714 007722 


010102 




1715 007724 


006101 




1716 007726 


006100 




1717 007730 






007730 


010246 




007732 


010046 




007734 


012746 


007756 


007740 


012746 


000003 


007744 


010600 




007746 


104414 




007750 


062706 


000010 


1718 007754 


000207 




1719 






1720 007756 


045 


116 


1721 






1722 






1723 






1724 






1725 






1726 






1727 






1728 






1729 






1730 






1731 






1732 






1733 






1734 






1735 






1736 010022 






1737 010022 






1738 010026 


013700 


002204 


1739 010032 


013701 


002206 


1740 010036 


010102 




1741 010040 


006101 




1742 010O42 


006100 




1743 010O44 






OlOf ^4 


010246 




010046 


010046 




0J.0050 


012746 


010072 


010054 


012746 


000003 


01OO60 


010600 




010r>62 


104414 




01006A 


062706 


000010 


1744 010070 


000207 




1745 






1746 010U72 


045 


116 


174 7 






1748 






1749 






1750 







J 



PRIADD: 



045 PRIAO; 



SAVREG 




MOV 


ERRHI.RO 


MOV 


ERRL0.R1 


MOV 


R1,R2 


ROL 


Rl 


ROL 


RO 


PRINTB 


*PRIA0,R0,R2 


MOV 


R2,-(SP) 


MOV 


RO.-CSP) 


MOV 


OPRIAO.-CSP) 


MOV 


♦3.-CSP) 


MOV 


SP # RO 


TRAP 


CIPNTB 


ADD 


010, SP 


RTS 


PC 


.ASCIZ 


«*N*A MEMORY 


.EVEN 





tSAVE R1-R5 UNTIL NEXT RETURN 

j GET HIGH AOORESSS 

t GET LOW ADDRESS 

iCOPf LOW ADDRESS 

I SHIFT BIT 15 TO C BIT 

I SHIFT INTO HIGH ORDER 

tPRINT MEMORY ADDRESS IN ERROR 



jRETURN 



K0H05 



.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 



PRINT MEMORY ADDRESS 

THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES, 



IMPLICIT INPUTS 



ERRHI 
ERRLO 



- HIGH ORDER ADDRESS 

- LOW ORDER ADDRESS 



PRITADD: 



045 PRITOi 



SAVREG 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

RTS 

.ASCIZ 
,EVEN 



ERRHI.RO 

ERRLO, Rl 

R1.R2 

Rl 

RO 

OPRIT0.R0.R2 

R2. -CSP) 

RO.-(SP) 

•PRITO.-(SP) 

*S,-(SP) 

SP.RO 

CIPNTB 

#10,SP 

PC 



jSAVE R1-R5 UNTIL NEXT RETURN 

i GET HIGH ADORE SiS 

j GET LOW ADDRESS 

j COPY LOW ADDRESS 

jSHIFT BIT 15 TO C BIT 

i SHIFT INTO HIGH ORDER 

j PRINT MEMORY ADDRESS IN ERROR 



iRETURN 



*N*A MEMORY TEST ADDRESS * *01tfQ5' 



M4 



;ZTKHA TK-25 FRT END FUNC *4 MACRO M1200 20- APR -64 08:13 
SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



PAGE 38 



SEQ 51 



3,752 








1753 








1754 








1755 








1756 








1757 








175a 








1759 








1760 








1761 








1762 








1763 








1764 








1765 








1766 








1767 








1768 








1769 








1770 








1771 








1772 








1773 








1774 








1775 








1776 








1777 








1778 








1779 








1760 








1781 








1762 








1783 








1784 








1785 








1786 








1787 


010134 






1768 


010134 






1789 


010140 


012737 


000764 010330 


1790 


010146 


012737 


140010 010320 


1791 


010154 


0O5703 




1792 


010156 


100403 




1793 


010160 


010337 


010322 


1794 


010164 


0O0407 




1795 


010166 


042703 


100000 


1796 


010172 


010337 


010322 


1797 


010176 


052737 


000400 010320 


1/98 


010204 


012704 


010320 


1799 


010210 


010465 


177776 


1800 


010214 


0O4737 


017124 


1801 


010220 


103420 




1802 


010222 








010222 


012727 


000250 




010226 


000000 






010230 


013727 


002116 




010234 


000000 






010236 


005367 


177772 




010242 


001375 





,SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 



} ♦ 

? 



{ROUTINE TO ISSUE A SPACE RECORDS 
{COMMAND (FORWARD OR REVERSE) 



{INPUT; 

i 



R3 



R5 



NUMBER OF RECORDS TO BE SPACED OVER 

BIT15 CONTROLS DIRECTION 

BIT15 - IS FORWARD 

BIT15 - 1 IS REVERSE 

FIRST DEVICE UNIBUS ADDRESS 



REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 



{OUTPUT; 



CARRY SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 



RO THE CONTENTS OF R4 IS MOVED TO RO 

i 

] IMPLICIT OUTPUT; 

TAPE HAS BEEN MOVED 

!SIDE EFFECTS; 

; 
; 



SPACE: 



5* 



10$ 
15* 



SAVREG 




MOV 


*500, ,SDELA 


MOV 


4140010.80$ 


TST 


R3 


BMI 


5$ 


MOV 


R3.90* 


BR 


10$ 


BIC 


*BIT15,R3 


MOV 


R3.90I 


BIS 


*BIT8,80$ 


MOV 


480$,R4 


MOV 


R4.TSDBCRS) 


JSR 


PCWAITF 


BCS 


20$ 


DELAY 


250 


MOV 


4250, (PC)f 


.WORD 





MOV 


L$DLY,CPO* 


.WORD 





DEC 


-6CPC) 


BNE 


.-4 



{SAVE THE GENERAL REGISTERS 

l SET UP DELAY 

{SET UP COMMAND, SPACE FORWARD 

{CHECK FOR DIRECTION 

{BR, IF REVERSE INDICATED 

{LOAD UP NUMBER OF RECORDS TO SPACE 

{GO 00 COMMANO 

jCLFAR DIRECTION BIT 

{LOAD UP NUMBER OF RECORDS TO SPACE 

{SET REVERSE BIT IN COMMANO PACKET 

{SET UP R4 WITH PACKET ADDRESS 

iSENO OUT COMMAND 

{WAIT FOR SSR 

i8R. IF SSR IS SET ANO OK 

{DELAY ABOUT .25 SECONDS 



N4 



CZTKHA TK-25 FRT END FUNC $4 
SPACE - SPACE RECORDS CF0R1 





010244 


005367 


177756 




010250 


001367 




1803 


010252 


005337 


010330 


1804 


010256 


001356 




1805 


010260 


000411 




1806 


010262 


016501 


000000 


1807 


010266 


012702 


000200 


1808 


010272 


020201 




1809 


010274 


001401 




1810 


010276 


000402 




1811 


010300 


000261 




1C12 


010302 


000401 




1813 


010304 


000241 




1814 


010306 






1815 


010306 


010400 




1816 


010310 


000207 





200 


20-APR-84 


08:13 PAGE 38-1 


ERSE 


) COMMAND 






DEC 


-22CPC) 




BNE 


.-20 




DEC 


SDELAY 




BNE 


15$ 




BR 


60$ 


20$ j 


MOV 


TSSR(R5),R1 




MOV 


0SSR.R2 


25*i 


CMP 


R2.R1 




BEQ 


40$ 




BR 


60$ 


40$: 


SEC 






BR 


70$ 


60$: 


CLC 




70$: 








MOV 


R4.R0 




RTS 


PC 



SEQ 52 



{BUMP DELAY COUNTER DOWN 

i BR, IF MORE DELAY 

I BR IF TROUBLE CARRY - CLEAR 

j READ TSSR 

jSET UP EXPECTED 

j ARE THEY OK 

j BR, IF EQUAL ■ OK 

{TROUBLE EXIT 

,SET CARRY NO TROUBLE 

{EXIT 

{CARRY CLEAR - ERROR 



{PASS PACKET 
{RETURN 



ADDRESS 



B5 



C/TKHA TK-25 FRT ENO FUNC #4 MACRO M1200 20- APR -64 06:13 

SPACE - SPACE RECORDS (FORWARD ANO REVERSE) COMMAND 
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SEQ 53 



1818 
1819 
1820 
1821 
1622 
1624 
1826 
1827 
1828 
1629 
1830 
1831 
1632 
1833 
1634 



010312 



010320 000000 



010322 
010324 
010326 
010330 



000000 
000000 
000000 
000000 



PACKET FOR SPACE COMMAND 

,BLKB 10-<.-TUV2A67> 

COMMAND WORD 
80$ j .WORD 

, NUMBER OF RECORDS TO BE SPACED OVER WORD 
90$i .WORD 

.WORD 

.WORD 
SDELAY; .WORD i DELAY COUNTER 

.EVEN 



torn Ti ? -6Si?i T cfi»AEv«itf xcs mM 1 ™ 2o ' APR - 84 oeji5 



C5 
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SEQ 54 



1836 

1837 

1838 

1839 

1640 

1841 

1842 

1843 

1844 

1845 

1846 

184 7 

1848 

1849 

1850 

1851 

1852 

1853 

18S4 

1855 

1856 

1857 

1858 

1859 

1860 

1861 

1862 

1863 

1864 

1865 

1866 

1867 

1868 

1869 

1870 

1871 

1872 

1873 

1874 

1875 

1876 

1877 

1878 

1879 

1880 

1831 

1882 

1883 

1864 

1885 

1886 

1887 

1888 

1889 

1890 

1891 



01033* 
010332 
010336 
010342 
010346 
010352 
010354 
010356 
010362 
010366 
010372 
010374 
010400 
010402 
010404 
010406 
010412 
010414 
010420 
010422 
010424 
010426 
010432 



005037 
010465 
004737 
103401 
000423 
016501 
012702 
032701 
001402 
052702 
020201 
001401 
000407 
062704 
011403 
010337 
000261 
000401 
000241 
016500 
000207 



.SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 



ROUTINE TO ISSUE A WRITE CHARACTERISTICS 
COMMAND SO THAT OTHER COMMANDS WILL BE ACCEPTED 



INPUT: 



R4 ADDRESS Of PACKET FROM TEST 
R5 FIRST DEVICE UNIBUS ADDRESS 
REQUIRES A CALL TO SOFINIT BE DONE PREVIOUSLY 



OUTPUT: 



RO TSSR CONTENTS 

CARRY SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 



IMPLICIT OUTPUT: 



MESSAGE BUFFER AND OTHER BUFFERS ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

BENBSW - BUFFER ENABLE SWITCH ON OR OFF 



SIDE EFFECTS: 



002176 
177776 
017242 



000000 
000200 
000100 

000100 



000010 
002720 

OOOOOO 



WRTCHR: 


> 
*SAVREG 






CLR 


BENBSW 


10$: 


MOV 


R4,TS0e(R5) 




JSR 


PC.CHKTSSR 




BCS 


20$ 




BR 


60$ 


204: 


MOV 


TSSR(R5),R1 




MOV 


♦SSR.R2 




BIT 


♦0FL.R1 




BEQ 


25$ 




BIS 


♦0FL.R2 


25$: 


CMP 


R2.R1 




BEO 


40$ 




BR 


60$ 


40$: 


ADO 


#8. ,R4 




MOV 


(R4),R3 




MOV 


R3,MESBFA 




SEC 






BR 


70$ 


60$: 


CLC 




70$: 


MOV 


TSSR(R5),R0 




RTS 


PC 



I SAVE THE GENERAL REGISTERS 

j CLEAR BUFFER ENABLE SWITCH 

»SEND OUT COMMAND 

iWAIT FOR SSR 

iBR, IF SSR IS SET AND OK 

I BR IF TROUBLE CARRY ■ CLEAR 

i READ TSSR 

iSET \P EXPECTED 

IWAS OFF LINE SET IN TSSR 

iBR, IF NO OFL SET 

jMAKE THEM LOOK ALIKE 

lARE THEY OK 

iBR, IF EQUAL - OK 

I TROUBLE EXIT 

iPOINT TO WRT CHARA OATA PACKET 

iGET ADDRESS OF MESSAGE BUFFER 

I STORE FOR PRINT ROUTINES 

$ SET CARRY NO TROUBLE 

lEXIT 

I CARRY CLEAR * ERROR 

iRETURN TSSR CONTENTS 

jRETURN 



mm '^Mnok^m^i^mm^ 00 



20-APR-84 08tl3 
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SEQ 55 



1893 
1894 
1895 
1896 
1897 
1898 
1899 
1900 
1901 
1902 
1903 
1904 
1*05 
1906 
1907 
1903 
1909 
1910 
1911 
1912 
1913 
1914 
1915 
1916 
1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1928 



1929 
1930 
1931 

1932 
1933 
1935 

1937 
1938 
1939 



010434 
010434 
010440 
010444 
010450 
010454 
010460 
010462 
010462 
010466 
010470 
010474 
010476 
010502 
010504 
010510 
010512 
010514 
010516 
01052O 
010522 
010524 
010530 
010530 
010533 



012704 
010465 
012703 
0O4737 
103417 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
000241 
010400 
000207 



102010 
000000 



.SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 



THIS ROUTINE WILL REWIND THE SELECTED TAPE. 

CAUTION: THE ROUTINE DOES NOT WAIT FOR BOT 

TO ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 



CALLING SEQUENCE; 

DO A SOFT INIT 

DO A WRITE CHARACTERISTICS 

JSR PCREWINO 



INPUT: 



OUTPUT 



R5 



RO 



FIRST DEVICE UNIBUS ADDRESS 



THE CONTENTS OF R4 IS PASSED TO RO 



010530 
177776 
000550 
017124 



000372 
002116 
17*7772 
177756 



REWIND: 



10*: 



20$ 



RWPACK; 



SAVREG 




MOV 


♦RWPACK.R4 


MOV 


R4.TSDBCR5) 


MOV 


4360.. R3 


JSR 


PC.WAITF 


BCS 


201 


DELAY 


250, 


MOV 


•250., (PC)* 


.WORD 





MOV 


L IDLY, (PC)* 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


,-20 


DEC 


R3 


BNE 


10$ 


CLC 




NOV 


R4.R0 


RTS 


PC 


.BLKB 


10- < . -TUV2A67> 


.WORD 


102010 


.WORD 






iSAVE R1-R5 UNTIL NEXT RETURN 

jGET PACKET ADORESS 

I SEND PACKET ADORESS TO EXECUTE 

lENOUGH TIME FOR 2400' REEL TO REWIND 

tWAlT FOR SSR TO SET 

iLEAVE t*CN SSR IS SET 

jWAIT FOR ,25 SECONDS 



i BUMP COUNTER DOWN 

(KEEP GOING 

I CLEAR CARRY TO SET ERROR 

iPASS THE PACKET ADDRESS 

iRETURN 



I POST ION COMMAND (REWIND) 
I NOT USED 



E5 
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CKRAM - COMPARE RAM TO I/O PACKET 



SEQ 56 



1941 

1942 

1943 

1944 

1945 

1946 

1947 

1948 

1949 

1950 

1951 

1952 

1953 

1954 

1955 

1956 

1957 

1956 

1959 

1960 

1961 

1962 

1963 

1964 

1965 

1966 

1967 

1968 

1969 

1970 

1971 

1972 

1973 

1974 

1975 

1976 

1977 

1978 

1979 

1980 

1981 

1982 

1983 

1984 

1985 

1986 

1987 

1988 

1989 

1990 

1991 

1992 



010554 
010534 
010540 
010544 
010550 
010552 
010556 
010562 
010566 
010572 
010576 
010600 
010602 
010604 
010606 
010612 
010614 
010616 
010620 
010622 
010624 
010626 
010634 



012701 
012702 
005003 
0O4737 
004737 
110265 
004737 
116511 
122124 
001401 
005203 
005202 
020227 
003761 
005703 
001402 
000241 
000401 
000261 
012737 
000207 



.SBTTL CKRAM - COMPARE RAM TO I/O PACKET 



ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 
MEMORY AND COMPARE THIS DATA TO A COMMAND PACKET. 



INPUTj 



R4 

R5 



ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT: 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT: 



THE TABLE RAMOATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8, FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



CKRAM: 



002210 
000020 

017242 
017242 
177777 
017242 
177776 



000027 



000010 002250 





SAVREG 






MOV 


♦RAMOATA. Rl » 




MOV 


♦RMPKT8EG.R2 i 




CLR 


R3 » 




JSR 


PC.CHKTSSR i 


10*: 


JSR 


PC.CHKTSSR i 




MOVB 


R2.TSD6HCR5) i 




JSR 


PC.CHKTSSR i 




MOVB 


TSBALCR5),(R1) | 




CMPB 


CR1V.CR4)* i 




BEQ 


20$ i 




INC 


R3 i 


20$: 


INC 


R2 i 




CMP 


R2.0RMPKTEND i 




BLE 


10$ i 




TST 


R3 i 




BEQ 


30$ j 




CLC 






BR 


50$ i 


30$: 


SEC 




50$: 


MOV 


♦0. .RAMSIZ i 




RTS 


PC i 



tSAVE THE GENERAL REGISTERS 

I ADDRESS TO SAVE THE RAM DATA 

iBYTE ADORESS OF FIRST RAM DATA 

» CLEAR THE ERROR FLAG 

i WAIT FOR SSR 

»WAIT FOR SSR TO SET 

i SELECT NEXT RAM ADORESS 

iWAIT FOR SSR TO SET 

j READ THE RAM DATA 

i COMPARE TO EXPECTED 

j BRANCH IF OK 

I SET ERROR FLAG 

i ADORESS OF NEXT RAM LOCATION 

iREACHED END YET ? 

iBRANCH TILL ALL READ 

i WAS AN ERROR FOUNO ? 

j BRANCH IF NOT 

I CLEAR CARRY TO SHOW ERROR 

lANO EXIT 

j SHOW GOOO COMPARE 

I SETUP RAMSIZ FOR PRAMPKT ROUTINE 

jRETURN 



F5 



CZTKHA TK-25 FRT END FUNC *4 MACRO M1200 
RAMER READ AND DISPLAY SELECTED RAM 



1994 

1995 

1996 

1997 

1998 

1999 

2000 

2001 

2002 

2003 

2004 

2005 

2006 

2007 

2008 

2009 

2010 

2011 

2012 

2013 

2014 

2015 

2016 

2017 

2018 

2019 

2020 

2021 

2022 

2023 

2024 

2025 

2026 

2027 

2028 

2029 

2030 



2031 
2032 
2033 
2034 
2035 
2036 



2037 



010636 

010636 

010642 

010646 

010652 

010656 

010662 

010666 

010672 

010676 

010702 

010706 

010710 

010714 

010720 

010722 

010726 

010726 

010730 

010732 

010736 

010742 

010744 

010746 

010752 

010756 

010762 

010764 

010766 

010772 

010772 

010774 

011000 

011004 

011006 

011010 

011014 



013705 
012701 
013702 
013703 
004737 
110265 
004737 
116521 
062702 
077313 
013704 
013702 
060?04 
162704 

010446 
010246 
012746 
012746 
010600 
104415 
062706 
012701 
013703 
005004 
112104 
042704 

010446 
012746 
012746 
010600 
104415 
062706 
077316 



011022 
002210 
011020 
002250 
017242 
177777 
017242 
177776 
000001 

002250 
011020 

000001 



011024 
000003 



000010 
002210 
002250 



177400 



011075 
000002 



000006 
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.SBTTL RAMER - READ AND DISPLAY SELECTED RAM 



SEQ 57 



ROUTINE TO READ THE SELECTED RAM LOCATIONS 

INPUT? 

R5 FIRST DEVICE UNIBUS ADDRESS 
CONSOLE WILL ALSO BE PRINTED TO 

IMPLICIT OUTPUT: 

THE TABLE RAMDATA IS FILLED WITH THE 
DATA HELD IN RAM* 

SIDE EFFECTS; 



RAMER:: 



10$ 



20$: 



30$ 



SAVREG 




MOV 


RAMR5H.R5 


MOV 


♦RAMDATA, Rl 


MOV 


RAMNLD.R2 


MOV 


RAMSIZ.R3 


JSR 


PC.CHKTSSR 


MOVB 


R2,TSD6H(R5) 


JSR 


PC.CHKTSSR 


MOVB 


TSBALCR5),(R1)* 


ADD 


♦1,R2 


soe 


R3,10$ 


MOV 


RAMSIZ.R4 


MOV 


RAMHLD.R2 


ADD 


R2.R4 


SUB 


♦1.R4 


PRINTX 


♦RAMI0P.R2.R4 


MOV 


R4,-(SP) 


MOV 


R2.-CSP) 


MOV 


♦RAMIOP.-(SP) 


MOV 


♦3,-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


♦10, SP 


MOV 


♦RAMDATA, Rl 


MOV 


RAMSIZ,R3 


CLR 


R4 


MOVB 


CR1)*,R4 


BIC 


♦177400, R4 


PRINTX 


♦RAMP0,R4 


MOV 


R4.-CSP) 


MOV 


♦RAMPD,-(SP) 


mo; 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


AOD 


♦6,SP 


SOB 


R3,30$ 



j SAVE THE GENERAL REGISTERS 

iRESET R5 TO FIRST DEVICE REGISTER 

j ADDRESS TO SAVE THE RAM DATA 

iBYTE ADORESS OF THE FIRST RAM DATA 

I SET THE SIZE OF THE READ UP 

I WAIT FOR THE SSR TO SET 

I SELECT NEXT RAM ADDRESS 

jWAIT FOR SSR TO SET 

I READ THE RAM DATA 

lAOORESS OF THE NEXT RAM LOCATION 

iNUMBER OF LOCATIONS COUNTER 

»GET THE RAM SIZE 

tGET THE STARTING RAM ADORESS 

l CALCULATE THE END ADDRESS 

iCORRECT VALUE OF PRINTOUT 

jRAM ADDRESS -10-17, ETC. 



I ADORESS OF WHERE RAM DATA IS 

l THE SIZE OF THE RAM FIELD READ 

iNO EXTRA DATA LEFT OVER 

jPICK UP BYTE OF RAM DATA 

iGET RID OF SIGN EXTEND 

i"010 211 111 222 377 000 123 134 ETC." 



jLOOP UNTIL ALL PRINTED 



G5 



CZTKHA TK-25 FRT END FUNC *4 MACRO M1200 
RAMER - READ AND DISPLAY SELECTED RAM 
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SEQ 56 



2038 011016 
2039 

2040 031020 

2041 011022 

2042 011024 

2043 011075 
2044 

2045 



000207 

000000 

000000 

045 

045 



116 
101 



045 
040 



50$: 



RAMHLD 
RAMR5H 
RAMIOP 
RAMPD: 



RTS 

,UORD 
• WORD 
.ASCIZ 
.ASCIZ 
.EVEN 



PC 



jRETURN 



jRAM ADDR HOLDER 1ST ADDRESS 

iHOLDS R5 FOR LATER 

'*N*A Rum Address COctal) - *03*A - *03*N' 
'*A i<03*A ' 



H5 
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CKRAM2 - COMPARE RAM TO I/O CHARACTERISTICS DATA 



SEQ 59 



2047 

2048 

2049 

2050 

2051 

2052 

2053 

2054 

2055 

2056 

2057 

2058 

2059 

2060 

2061 

2062 

2063 

2064 

2065 

2066 

2067 

2068 

2069 

2070 

2071 

207,? 

2073 

2074 

2075 

2076 

2077 

2078 

2079 

2080 

2081 

2082 

2083 

20*4 

2085 

2086 

2087 

2088 

2089 

2090 

2091 

2092 

2093 

2094 

2095 

2096 

2097 



011110 
011110 
011114 
011120 
011124 
011126 
011132 
011136 
011142 
011146 
011152 
011154 
011156 
011160 
011162 
011170 
011174 
011176 
011200 
011202 
01L2C4 
011206 
011210 



012701 
012702 
005003 
004737 
004 737 
110265 
004737 
116511 
122124 
001401 
005203 
005?02 
012737 
020227 
003756 
005703 
001402 
000241 
O00401 
000261 
000207 



.SBTTL CKRAM2 - COMPAKE RAM TO I/O CHARACTERISTICS DATA 



i ♦ 



ROUTINE TO READ THE FIRST 8 OR 10 BYTES FROM RAM 

MEMORY AND COMPARE THIS DATA TO A CHARACTERISTICS DATA BLOCK. 



INPUT : 



R4 
R5 



ADDRESS OF THE CHARACTERISTICS DATA 
FIRST DEVICE UNIBUS ADDRESS 



OUTPUT : 



CARRY 



SET - RAM MATCHES PACKET 

CLR - RAM DOES NOT MATCH PACKET 



IMPLICIT OUTPUT; 



THE TABLE RAMDATA IS FILLED WITH THE 

DATA HELD IN RAM. 

RAMSIZ IS SET TO 8. OR 10. FOR PRAMPKT ROUTINE 



SIDE EFFECTS: 



002210 
000167 

017242 
017242 
177777 
0172*2 
177776 



000010 
000176 



002250 



CKRAM2: 


SAVREG 






MOV 


♦RAM0ATA.R1 




MOV 


#RMCHBEG,R2 




CLR 


R3 




JSR 


PC.CHKTSSR 


10* t 


JSR 


PC.CHKTSSR 




MOVB 


R2.TSD6HCR5) 




JSR 


PC.CHKTSSR 




MOVB 


TSBAL(R5).(R1) 




CMPB 


(R1)*.(R4)» 




BEQ 


20$ 




INC 


R3 


20$: 


INC 


R2 




MOV 


♦8,, RAMSIZ 




CMP 


R2.0RMCHEND-2 




BLE 


10) 


27$: 


TST 


R3 




BEQ 


30* 




CLC 






BR 


501 


301: 


SEC 




501: 


HTS 


PC 



j SAVE THE GENERAL REGISTERS 

lAOORESS TO SAVE THE RAM DATA 

iBYTE AOORESS OF FIRST RAM DATA 

I CLEAR THE ERROR FLAG 

»WAIT FOR SSR 

iWAIT FOR SSR TO SET 

I SELECT NEXT RAM ADDRESS 

iWAIT FOR SSR TO SET 

iREAD THE RAM DATA 

jCOMPARE TO EXPECTED 

I BRANCH IF OK 

»SET ERROR FLAG 

» AOORESS OF NEXT RAM LOCATION 

I ASSUME NORMAL NOT SET 

jREACHED END YET ? 

jBRANCH TILL ALL READ 

j WAS AN ERROR FOUNO ? 

j BRANCH IF NOT 

i CLEAR CARRY TO SHOW ERROR 

jANO EXIT 

i SHOW GOOD COMPARE 

jRETlflN 



15 
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CKMSG - COMPARE WRITE CHAR, MESSAGE BUFFERS 
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SEQ 60 



2099 








2100 








2101 








2102 








2103 








2104 








2105 








2106 








2107 








2108 








2109 








2110 








2111 








2112 








2113 








2114 








211? 








2116 








2117 








2118 








2119 








2120 








2121 








2122 








2123 








2124 


011212 






2125 


011212 






2126 


011216 


010037 


002252 


2127 


011222 


01013/ 


002254 


2128 


011226 


005737 


003106 


2129 


011232 


001403 




2130 


011234 


0O4737 


020274 


2131 


011240 


010001 




2132 


011242 


005004 




2133 


011244 


005003 




2134 


011246 


010205 




2135 


011250 


011264 


002270 


2136 


011254 


011164 


002434 


2137 


011260 


022221 




2138 


011262 


001401 




2139 


011264 


005203 




2140 


011266 


062704 


000002 


2141 


011272 


020427 


000014 


2142 


011276 


003764 




2143 


011300 


032765 


0O020O 


2144 


011306 


001403 




2145 


011310 


020427 


000016 


2146 


011314 


003755 




2147 


011316 


005703 




2148 


011320 


001402 




2149 


011322 


0O0241 




2150 


011324 


000401 




2151 


011326 


000261 




2152 


011330 


000207 




ai53 









.SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 



ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPO AND RECV 
BUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
ERROR PRINT ROUTINES. 



INPUT; 



OUTPUT: 



RO 
Rl 
R2 



RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
RECV MESSAGE BUFFER LOW ORnER ADDRESS 
EXPO MESSAGE BUFFER ADDRESS 



CARRY 



SET - MESSAGE BUFFERS MATCH 

CLR -MESSAGE BUFFERS DON'T MATCH 



IMPLICIT OUTPUT: 

EXPMSG 
RECMSG 

RCVHIADD 
RCVLOADD 



BUFFER IS SET TO EXPO DATA 
BUFFER IS SET TO RECV DATA 
SET TO HIGH ORDER ADDRESS OF RECV 
SET TO LOW ORDER ADDRESS OF RECV 



CKMSG: 



10*: 



15$: 



25$: 



000012 



50$: 



55$: 

60$: 



bAVREG 

MOV 

MOV 

TST 

BEQ 

JSR 

MOV 

CLR 

CLR 

MOV 

MOV 

MOV 

CMP 

BEQ 

INC 

ADO 

CMP 

BLE 

BIT 

BEQ 

CMP 

BLE 

TST 

BEQ 

CLC 

BR 

SEC 

RTS 



RO, RCVHIADD 

Rl.RCVLOAD 

KTENABLE 

10$ 

PC.SETMAP 

R0.R1 

R4 

R2.R5 

(R2),EXPMSG(R4) 

(RD.RECMSGCR4) 

(R2)*.(Rl)» 

25$ 

R3 

♦2,R4 

R4.414 

15$ 

♦X2.EXTF.XST2CR5 
50$ 

R4.016 
15$ 
R3 
55$ 

60$ 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 
SAVE RECV HIGH ADORESS 
SAVE RECV LOW ADDRESS 
TESTING ABOVE 28K? 
BR IF NO 

RETURN ADORESS BIASED TO PAR6 IN RO 
GET RETURNED ADORESS BIASED TO PAR6 
WORD IN BIFTE* 
CLEAR ERROR SEEN FLAG 
GET EXPO BUFFER ADORESS 
SAVE EXPO FOR ERROR REPORT 
SAVE RECV FOR ERROR REPORT 
EXPO EQUAL RECV? 
BR IF YES 

SET ERROR SEEN FLAG 
POINT TO NEXT WORD ADDRESS 
DONE FIRST 7 WORDS? 
BR IF NO 

),IS EXTENDED FEATURES SET IN EXPD? 
BR IF NO 

DONE EXTENDED FEATURES WORD? 
BR IF NO 
ANY ERRORS SEEN? 
BR IF NO 
SET FAILURE 

SET SUCCESS 
RETURN 



J5 



CZTKHA TK-25 FRT END TUNC *4 MACRO M1200 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 
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SEQ 61 



2155 










,SBTTL 


CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


2156 








j ♦ 






2157 














2158 








{ROUTINE TO COMPARE AN EXPECTED ANO RECEIVED MESSAGE 


2159 








j BUFFER 


. THE EXPECTED ANO RECEIVED BUFFERS ARE STORED FOR 


2160 








iERROR 


PRINT ROUTINES, 


2161 














2162 








I INPUT j 






2163 














2164 










RO 


RECV MESSAGE BUFFER HIGH ORDER ADDRESS 


2165 










Rl 


RECV MESSAGE BUFFER LOW ORDER ADDRESS 


2166 










R2 


EXPD MESSAGE BUFFER ADDRESS 


2167 










R3 


NUMBER OF BYTES TO COMPARE 


2168 














2159 








j OUTPUT 


• 




2170 














2171 










CARRY 


SET - MESSAGE BUFFERS MATCH 


2172 
2173 
2174 












CLR - MESSAGE BUFFERS DON'T MATCH 








i IMPLICIT OUTPUT: 


2175 














2176 










EXPMSG 


BUFFER IS SET TO EXPD DATA 


2177 










RECMSG 


BUFFER IS SET TO RECV DATA 


2178 










RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 


2179 










RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 


2180 














2181 








i * 






2182 


011332 






CKMSG2: 


• 
• 




2183 


011332 








SAVREG 


iSAVE R1-R5 UNTIL NEXT RETURN 


2184 


011336 


020327 


0O0144 




CMP 


R3,*RECMSG -EXPMSG t 8G0 IS COUNT ABOVE MAX ALLOWED? 


2185 


011342 


003412 






BLE 


5$ iOfiO BR IF NO 


2186 


011344 


012703 


000144 




MOV 


♦RECMSG EXPMSG , R3 i 080 


2187 


011350 








PRINTF 


♦OEBUGMSG »080 




011350 


012746 


011464 




MOV 


♦OEBUGMSG.-(SP) 




011354 


012746 


OOOOOl 




MOV 


♦l.-(SP) 




011360 


010600 






MOV 


SP,RO 




011562 


104^17 






TRAP 


C$PNTF 




011364 


062706 


000004 




ADD 


04.SP 


2188 


011370 


010017 


002252 


5$: 


MOV 


RO, RCVHIADD jSAVE RECV HIGH ADDRESS 


2189 


011374 


010137 


002254 




MOV 


Rl.RCVLOAD iSAVE RECV LOW ADDRESS 


2190 


011400 


00S737 


0OJ106 




TST 


KTENABLE i TESTING ABOVE 28K? 


2191 


011404 


001403 






BEQ 


10$ jBR IF NO 


2192 


011406 


004737 


020274 




JSR 


PC.SETMAP jRETURN ADORESS BIASED TO PAR6 IN RO 


2193 


011412 


010001 






MOV 


R0.R1 iGET RETURNED ADDRESS BIASED TO PAR6 


2194 


011414 


005004 




10$: 


CLR 


R4 iWORD IN BUFFER 


2195 


011416 


005005 






CLR 


P5 {CLEAR ERROR SEEN FLAG 


21% 


011420 


11 3.264 


002270 


151 ! 


MOVB 


CR2\EXPMSG(R4) j SAVE EXPD FOR ERROR REPORT 


2197 


011424 


111.164 


002434 




M0V8 


(H1).RECMSG(R4) jSAVE RECV FOR ERROR REPORT 


2198 


011430 


122221 






CMPB 


CR2)*,CR1)» lEXPD EQUAL RECV? 


2199 


011*7? 


001401 






BEQ 


25$ jBR IF YES 


2200 


011434 


005205 






INC 


R5 j SET ERROR SEEN Fl_A u 


2201 


011436 


062 704 


OOOOOl 


25$: 


ADD 


•1.H4 iPOINT TO NfcXT BYTE 


2202 


011442 


0204^3 






CMP 


R4.R3 jDONE ALL BYTES? 


2203 


01 J 444 


002001 






BGE 


50> iBR IF YES 


2204 


011446 


000764 






BR 


15$ iDO NEXT B> TE 


2205 


011450 


005705 




50*: 


TST 


R5 j ANY ERRORS SEEN? 


2206 


011452 


001402 






BEQ 


55$ :BR IF NO 



I<5 



CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 
CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 



20-APR-84 08:13 PAGE 46-1 



SEQ 62 



2207 
2208 
2209 
2210 
2211 
2212 
2213 
2214 
2215 
2216 
2217 



011454 
011456 
011460 
011462 

011464 
011554 
011565 
011620 
011653 



000241 
000401 
000261 
000207 

120 
045 
040 
056 
124 



122 
116 
040 
056 
105 



117 
045 
124 
056 
123 



55$: 

60$ i 



CLC 
BR 
SEC 
RTS 



DEBUGMSG: 
FERCM: .ASCII 



ERCM: 

SIMSG; 

TINERR: 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



60$ 
PC 



j SET FAILURE 

IsET SUCCESS 
■RETURN 



.ASCIZ 'PROGRAM INTERNAL ERROR -CKM5G2 MESSAGE BUFFER EXCEEDED- ' j85)D 

/*N*A ***/ 

/ TSSR ERROR CODE REC'D - / 

/ AFTER DOING SOFT INIT/ 

/TEST: ..,/ 



L5 



CZTKHA TK-25 FRT END FUNC *4 MACRJ 
CKMSG2 - COMPARE EXPO RECV MESSAGE I 



2219 
2220 
2221 
2222 
2223 
2224 
2225 
2226 
2227 
2228 
2229 
2230 
2231 
2232 
2233 
2234 
2235 



> Nil 
lUFFl 



•00 
:RS 



20-APR-84 08 j 13 PAGE 47 



SEQ 63 



2236 
2237 
2238 



2239 
2240 
2241 
2242 
2243 
2244 
2245 
2246 
224 7 
2248 
2249 
2250 
2251 

2252 
2253 
2254 
2255 
2256 
2257 
2258 



2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 



011666 
011666 
011666 
011672 
011676 
011676 
011676 



004737 005270 
004737 020i60 



104423 



011700 
011700 
011700 
011704 
011710 
011714 
011720 
011722 
011726 
011726 
011726 



004737 
012700 
004737 

013700 
005001 
004737 



104423 



005270 
000004 
007066 
002720 

014062 



PRINT ROUTINE TO FATAL SOFT INIT ERRORS 
INPUT: 

Rl CONTENTS OF TSSR AT ERROR 
SIDE EFFECTS: 

EXECUTES DROP UNIT TO CEASE TESTING 



SFIMSG:: 



BGNMSG SFIMSG 



L10003: 



1 ♦ 



JSR 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 
PC.CKDROP 



CIMSG 



1 PRINT CONTENTS OF TSSR REGISTER 
1 DROP UNIT, IF ALLOWED 



jPRINT ROUTINE TO PRINT THE CONTENTS OF 

j TSSR AND A COMMANO PACKET OTHER THAN GET STATUS COMMAND PACKET. 



! INPUTS : 

i 
J 
; 
1 
1 - 



Rl 

R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



PKTSSR: 



BGNMSG PKTSSR 



L 10004: 



JSR 
MOV 
JSR 
MOV 
CLR 
JSR 
ENOMSG 

TRAP 



PCPRITSSR 

04.R0 

PC.PRIPKT 

MESBFA.RO 

PI 

PCPRMESS 



CIMSG 



»PRINT THE CONTENTS OF TSSR REGISTER 

•NO. OF WORDS IN PACKET 

'"RINT THE CONTENTS OF COMMANO PACKET 

, ADDRESS OF MESSAGE BUFFER 

j \5SUME NO HIGH MEMORY 

i\HUNT THE MESSAGE BUFFER ALSO 



PRINT ROUTINE TO PHINT THE CONTENTS OF 
TSSR ANO A GET STATUS COMMANO PACKET. 



INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



M5 



CZTKHA TK-25 FRT END FUNC 44 
CKMSG2 - COMPARE EXPD RECV MESSAG 



MACRg^ 



2270 
2271 

2272 

2273 
2274 
2275 



2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
228b 
2286 
2287 

2288 
2289 



2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2298 
2299 
2300 
2301 
2302 
2303 
2304 
2305 

2306 
2307 
2308 
2309 
2310 



2311 



011730 
011730 
011730 
011734 
011740 
011744 
011744 
011744 



011746 
011746 
011746 
011752 
011752 
011752 



011754 
011754 
011754 
011760 
011762 
011764 
011770 
011770 
011770 



004737 005270 
012700 000002 
004737 007066 



104423 



2C0 20 


-APR -84 


08s 13 PAGE 47-1 


ERS 








BGNMSG 


PKTGETS 


PKTGETS 


» • 






*JSR 


PCPRITSSR 




MOV 


02, RO 




JSR 


PC.PRIPKT 




ENOMSG 




L 10005: 


TRAP 


C*MSG 



SEQ 64 



; PRINT THE CONTENTS OF TSSR REGISTER 
I NO. OF WORDS IN GET STATUS PACKET 
tPRINT THE CONTENTS OF COMMAND PACKET 



PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
INPUTS: 



Rl 
R4 



TSSR CONTENTS 

ADDRESS OF COMMAND PACKET 



004737 005270 



104423 



SFFMSG:: 



BGNMSG SFFMSG 

JSR PC.PRITSSR 
ENOMSG 



iPRINT CONTENTS OF TSSR REGISTER 



L10006: 



TRAP 



C*MSG 



.SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 



PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR ANO MESSAGE 
BUFFER FOR ERROR REPORTS 



INPUTS: 



Rl CONTENTS OF TSSR 

R2 LOW ORDER MESSAGE BUFFER 

R3 HIGH ORDER MESSAGE BUFFER ADDRESS 

NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 



004737 005270 

010200 

010301 

004737 014062 



104423 



PKTMES: 



BGNMSG PKTMES 



L10007: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRITSSR 
R2.R0 
R3,R1 
PC.PRMESS 



CJMSG 



j PRINT CONTENTS Of TSSR 

iLCW ORDER ADDRESS 

l HIGH ORDER ADDRESS 

j PRINT THE MESSAGE BUFFER 



N5 



CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 
ADDSSR - PRINT TEST ADDRESS AND TSSR 



2313 
2314 
2315 
2316 
2317 
2318 
2319 
2320 
2321 
2322 
2323 
2324 
2325 

2326 
2327 
2328 
2329 



2330 
2331 
2332 
2333 
2334 
2335 
2336 
2337 
2338 
2339 
2340 
2341 
2342 
2343 
2344 

2345 
2346 
2347 



2348 
2349 



011772 
011772 
011772 
011776 
012002 
012006 
012006 
012006 



012010 
012010 
012010 
012014 
012020 
012020 
012020 



004737 010022 
016501 000000 
004737 005270 



104423 



012 700 000007 
004737 015426 



104423 



20-APR-84 03:13 PAGE 48 



.SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 



SEQ 65 



{PRINT ROUTINE TO PRINT THE CONTENTS OF 
j TSSR AND A MEMORY TEST ADDRESS 



{INPUTS: 



J - 



R5 FIRST DEVICE UNIBUS ADDRESS 
ERRHI HIGH ORDER MEMORY TEST ADDRESS 
ERRLO LOW ORDER MEMORY TEST ADDRESS 



ADDSSR: 



L 100 10: 



BGNMSG ADDSSR 



JSR 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRITADD 

TSSRCR5),R1 

PC.PRITSSR 



C*MSG 



{PRINT MEMORY TEST ADDRESS 

{GET CURRENT TSSR 

{PRINT THE CONTENTS OF TSSR REGISTER 



• SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 

+ 

PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ACORESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



BGNMSG MSGEXP 



MSGEXP: 


• 






*M0V 


*7»R0 


5$: 


JSR 

ENOMSG 


PC.PRMSGEXP 


L10011: 







{ASSUME NO EXT FEATURES 

{PRINT EXPD/RECV MESSAGE BUFFERS 



TRAP 



C*MSG 



B6 



C/TKHA TK-25 FRT END TUNC #4 MACRO M1200 

FIFEXP - PRINT FIFO EXP/RECV OATA 



20-APR-64 08il3 PAGE 49 



SEQ 66 



2351 
2352 
2353 
2354 
2355 
2356 
2357 
2356 
2359 
2360 
2361 
2362 
2363 

2364 



2365 



2366 

2367 
2366 



2369 

2370 
2371 
2372 



012022 
012022 
012022 
012022 
012024 
012030 
012034 
012036 
012040 
012044 
012044 
012050 
012054 
012056 
012060 
012064 
012066 
012072 
012072 
012072 
012074 
012143 



010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
010100 
0O4737 



104423 
045 
045 



.SBTTL FIFEXP 



PRINT FIFO EXP/RECV OATA 



PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 

Rl - BYTE COUNT 

IMPLICIT INPUTS t 

EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 

RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 



FIFEXP i j 



BGNMSC FIFEXP 



012074 



000006 

012143 
000001 



000004 
015776 



116 
116 



045 

045 



UOOJ^i 

FIF1MSG: 
FIF2MSG: 



PRINTX 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

MOV 

JSR 

ENOMSG 

TRAP 



♦FIF1MSG.R1 
RL.-CSP) 

#FIF1MSG,-(SP) 
♦2,-CSP) 
SP.RO 
C*PNTX 

*6,SP 

#FIF2MSG 

#fIF2MSG,-(SP) 

•1,-CSP) 

SP.RO 

CIPNTX 

♦4.SP 

Ri.RO 

PC.PRBYTEXP 



iPRINT BYTES TRANSFERRED 



iPRINT HEADER MSG 



iGET BYTE COUNT 

iPRINT FIFO BYTES IN ERROR 



.EVEN 



CIMSG 

.ASCIZ 

.ASCI* 



'#N*A NUMBER OF BYTES TRANSFERRED • #02* 
'#N*A FIFO DATA BYTES IN ERROR* ' 



mw^ftiWsmjm*&* ^mM°8*m p R - a4 °* 



il3 



C6 

PAGE 50 



SEQ 67 



2374 
2375 
2376 
2377 
2378 
2379 
2380 
2381 
2382 
2383 
2384 
2385 
2386 
2387 

2388 
2389 
2390 
2391 



2392 
2393 
2394 
2395 



2396 
2397 
2396 
2399 

2400 
2401 
2402 
2403 
2404 
2405 
2406 
2407 
2408 
2409 
2410 
2411 
2412 
2413 
2414 
2415 
2416 
2417 
2418 
2419 
2420 

24*1 



012202 
012202 
012202 
012206 
012210 
012212 
012212 
012214 
012220 
012222 
012224 
012230 
012232 
012236 
012242 
012242 
012242 

012244 
012262 
012324 
012415 
012506 
012577 
012641 



.SBTTL MSGSTAT - PRIN'i STATUS HEADER AND MESSAGE BUFFERS 
PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 
012100 
001410 

010046 
012746 
010600 
104415 
062706 
OC0766 
012700 
004737 



104423 

012262 
045 
045 
045 
045 
045 
045 



012244 



000001 



000004 

000012 
015426 



012324 
116 
116 
116 

116 
116 
116 



M5GSTAT* 
10$: 



BGNMSG MSGSTAT 



20$; 



L10013; 



MOV 

MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

T«AP 

ADO 

BR 

MOV 

JSR 

ENDMSG 



TRAP 



♦STATC00.R1 

(R1)»,R0 

201 

RO 

RO.-(SP) 

♦1,-CSP) 

SP.RO 

CIPNTX 

•4,SP 

10$ 

♦10., RO 

PC.PRMSGEXP 



C$MSG 



lASCII AOORESS TABLE 
I DONE ALL MSG LINES 7 
iBR IF YES 
•PRINT STATUS BIT NAMES 



»D0 ANOTHER MSG LINE 

iNUMBER OF WORDS IN A READ STATUS BUFFER 

iPRINT EXPD/RECV MESSAGE BUFFERS 



012415 STATCOOt 



.WORD 1$,2$,3$,4$,5$,6$,0 



045 1$ 5 .ASCIZ '*N#A Ttp« Bua Signal* in Word #8:' 

045 2$:.ASCIZ • *N#A PARERR<15> IEOT <12> 

045 3$:.ASCIZ ' *N*A IRESV2<14> IIDENT<11> 

045 4$:,ASCIZ ' *N*A IRESV1<13> ICER <10> 

045 5$:.ASCIZ ' #N#A Tap* Bus Signals in ford «9: ' 

045 6$J.ASCIZ '*N*A DATMIS<7> ILW>6> C'JTRDY<5> 
.EVEN 



IFMK <9> 
IHER <8> 
ISPEED<7> 



IR0Y<6> 

I0NL<5> 
ILDP<4> 



IRWQ<2>' 
IFBt<l>' 

IFPT<0>' 



INRDY<4>' 



012716 
012716 
012716 



,SBTTL MSGLOOP - PRINT LOOPBACK HEADER ANO MESSAGE BL**Fi£RS 

♦ 

PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIADO- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



012701 012760 



BGNMSG MSGLOOP 
MSGLQQPt: 

MOV GLQOPCOOiRl 



I ASCII ADDRESS TABLE 



fi&tw^;y? T L59PB&yMkR wkme *mm 



-84 08; 13 



2422 
2423 
2424 



2425 
2426 
2427 
2428 



2429 
2430 
2431 
2432 
2433 
2454 
2435 
2436 
2437 
24 38 
2439 



012722 
012724 
012726 
012726 
012730 
012734 
012736 
012740 
012744 
012746 
012752 
012756 
012756 
012756 

012760 
013000 
013053 
013152 
013251 
013350 
013447 
013546 



012100 
001410 

010046 
012746 
010600 
104415 
062706 
000766 
012700 
004737 



104423 

013000 
045 
045 
045 
045 
045 
045 
045 



000001 



000004 

000012 
015426 



013053 
116 
116 
116 
116 
116 
116 
116 



013152 
045 
045 
045 
045 
045 
045 
045 



10* 



20$ 



L10014: 



MOV 

BEQ 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

BR 

MOV 

JSR 

ENOMSG 



TRAP 



LOOPCOO: 
1$:. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 



D6 
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SEQ 68 



^R1)»,R0 

20$ 

RO 

RO.-CSP) 

♦ 1,-CSP) 

SP.RO 

C4PNTX 

♦4.SP 

101 

♦10,, RO 

PC.PAMSGEXP 



I DONE ALL MSG LINES? 

jBR IF YES 

j PRINT STATUS BIT NAMES 



I DO ANOTHER MSG LINE 

jNUMBER Of WORDS IN A READ STATUS BUFFER 

jPRINT EXPD/RECV MESSAGE BUFFERS 



CIMSG 



2% 
31 
41 

51 
61 



.WORD 
*N*A Tap* 



7$ j, ASCIZ 



'#N*A 
•*N#A 
'*NtfA 

'#N#A 

»#N*A 
EVEN 



ll,2t,3t,4t.5l,vVI.7t,0 

Bu» Loopback Signnls in Word ♦8:' 

IRESV2<14> IRESV1<13>' 

IWFT«>IIDENT<11> IREV ->ICER <10>' 

IE'JIT->IHER <08> IFAO ■ > ISPEED<07 > ' 

I7A01->I0NL <05> IERASE-vTLDP <04»< 

WWU ->IRWO <02> IFEN »>IF8Y <0I>« 



PARERR<15> 
IHISP->IE0T<12> 
IWFM ->IFMK<09> 
ITAD0->IRDY<06> 
IREW ->I06Y<03> 
IGO »>IFPT<00> 



E6 



CZTKHA TK-25 FRT ENO FUNC *4 MACRO M1200 20-APR-84 08:13 PAGE 51 
MSGSU6 - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



SEQ 69 



2441 
2442 
2443 
2444 
2445 
2446 
244 7 
2448 
2449 
2450 
2451 
2452 
2453 
2454 

2455 
2456 
2457 



2458 
2459 
2460 
2461 
2462 
2463 
2464 
2465 
2466 
2467 
2468 
2469 
2470 
2471 
2472 
2473 
2474 
2475 

2476 

2477 
24 78 
2479 
2480 



2481 



.SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 



PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 



IMPLICIT INPUTS: 



EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED ME5SAGE BUFFER 

RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



013574 
013574 
013574 
013600 
013604 
013604 
013604 



012700 
004737 



104423 



000012 
015426 



MSGSUB? : 



BGNMSG MSGSUB 



L10015: 



MOV 
JSR 
ENDMSG 

TRAP 



*10.,R0 
PC.PRMSGEXP 



C*MSG 



i SIZE Of WRITE SUBSYSTEM BUFFER 
jPRINT EXPD/RECV MESSAGE BUFFERS 



013606 
013606 
013606 
013612 
013616 
013622 
013626 
013626 
013626 



.SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 



PRINT ROUTINE TO PRINT MEMORY ADDRESS DATA COMPARE ERROR 



IMPLICIT INPUTS: 



ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

EXP - EXPECTED DATA 

RECV - RECEIVED DATA 



004737 
013701 
013702 
004737 



104423 



007706 
002200 
002202 
007470 



MEMADD: 



BGNMSG MEMADD 



L10016: 



JSR 
MOV 
MOV 
JSR 
ENOMSG 

TRAP 



PC.PRIADD 
EXPD.R1 
RECV.R2 
PC.PRIXOR 



CtMSG 



I PRINT MEMORY ADDRESS IN ERROR 
iGET EXPD DATA 
jGET RECEIVED DATA 
j PRINT EXPD/RECV 



C/TKHA TK-25 FRT END FUNC 04 MACRO M1200 
PRAMPKT - PRINT RAM AND PACKET DATA 



20-APR-84 08 j 13 



F6 

PAGE 52 



SEQ 70 



2483 

2484 

2485 

2486 

2487 

2483 

2489 

2490 

2491 

2492 

2493 

2494 

2495 

2496 

2497 

2498 

2499 

2500 

2501 

2502 

2503 

2504 

2505 

2506 

2507 

2508 

2509 

2510 

2511 

2512 

2513 

2514 

2515 

2516 



2517 
2518 
2519 
2520 
2521 
2522 
2523 
2524 
2525 
2526 
?527 
2528 



013630 
013630 
013634 
013640 
013642 
013644 
015646 
013652 
015656 
015666 
015672 
015700 
015706 
013706 
015710 
015714 
015720 
013722 
015726 
015752 
015754 
015756 
015742 
015744 
015750 
015752 
015756 
015760 
013762 
013766 
013770 
013774 
013776 



012701 
005002 
122124 
001000 
116105 
116403 

O42703 
116157 
116457 

010546 
013746 
015746 
010246 
012746 
012746 
010600 
104414 
062706 
005202 
005757 
001404 
020237 
005731 
000403 
020227 
002725 
005037 
000207 
045 



,SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 



PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
WHEN THE RAM DATA DOES NOT MATCH. 



INPUTS; 



R4 



POINTER TO COMMAND PACKET 



IMPLICIT INPUTS: 

RAMDATA 
RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER OF BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAULT TO 8. 



IMPLICIT OUTPUTS: 
\ RAMSIZ SET TO 



PRAMPKT: 



002210 



177777 
177777 

177400 
177777 
177777 



002200 
002202 

013776 
000005 



000014 

002250 
002250 

OOOOIO 

002250 

116 



5$ 

7$ 



002202 
002200 



10$ 



15$ 
20$ 
25$ 



045 RAMASCi 



SAVREG 

MOV 

CLR 

CMPB 

BNE 

MOVB 

MOVB 

XOR 

BIC 

MOVB 

MOVB 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

INC 

TST 

BEQ 

CMP 

BLE 

BR 

CMP 

BLT 

CLR 

RTS 

.ASCIZ 

.EVEN 



♦RAMDATA, Rl 

R2 

(R1)»,(R4)+ 

7$ 

-1CRD.R5 

-1(R4),R3 

R5.R5 

♦177400, R5 

-1(R1),RECV 

-1(R4).EXPD 



#«AMASC,R2,RECV,EXPD,R3 
R3.-CSP) 
EXPO.-CSP) 
RECV.-CSP) 
R2.-CSP) 
♦RAMASC.-(SP) 
♦5,-CSP) 
SP.RO 
C$PNTB 
♦14, SP 
R2 

RAMSIZ 
15$ 

R2, RAMSIZ 
5$ 
25$ 

R2,*8. 
5$ 

RAMSIZ 
PC 
#N*A BYTE: 



I SAVE R1-R5 UNTIL NEXT RETURN 

iDATA FROM THE RAM 

iINIT BYTE NUMBER 

» COMPARE EXPECTED. RECEIVED 

I BR IF NO MATCH 

iGET RECV RAM DATA 

iGET EXPO PACKET DATA 

iXGR EXPD/RECV 

lLOW BYTE ONLY 

iGET RECEIVED RAM DATA 

iGET EXPECTED RAM DATA 



lUPDATE BYTE COUNT 
iDEFAULT TO 8.? 
iBR IF YES 
iDONE ALL BYTES? 
i BR IF NO 
J 



iDONE DEFAULT NUMBER OF BYTES? 
iBR IF NO 

iSET DEFAULT RAMSIZ 
iRETURN 
*D2*A PAM; *Q3*A Packtt; *Q3*A XQR;*03 



G6 



CZTKHA TK-25 FRT END FUNC *4 MACRO H1200 
PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



2530 
2531 
2532 
2533 
2534 
2535 
2536 
2537 
2538 
2539 
2540 
2541 
2542 
2543 
2544 
2545 
2546 
2547 
2548 
2549 
2550 
2551 
2552 
2553 
2554 
2555 
2556 
2557 



2558 
2559 
2560 



2561 



2562 
2563 
2564 

2565 
2566 
2567 
2568 
2569 



014062 
014062 
014066 
014072 
014074 
014100 
014102 
014104 
014106 
014110 
014112 
014112 
014114 
014116 
014122 
014126 
014130 
014132 
014136 
014142 
014144 
014144 
014150 
014154 
014156 
014160 
014164 
014164 
014170 
014174 
014176 
014200 
014204 
014206 
014210 
014212 
014214 
014220 
014222 
014222 



010537 
010005 
005737 
001001 
005001 
010103 
006100 
006101 

010546 
010146 
012746 
012746 
010600 
104415 
062706 
022715 
001010 

012746 
012746 
010600 
104415 
O62706 

012746 
012746 
010600 
104415 
062706 
005004 
010501 
010300 
001403 
004737 
010005 



011022 
003106 



014720 
000003 



000010 
177777 



014640 
000001 



00OOO4 

014765 
000001 



000004 



020274 
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.SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 



SEQ 71 



THIS ROUTINE PRINTS THE CONTENTS OF 

THE 7 WORD MESSAGE BUFFER RETURNED BY THE 

TK-25. 

INPUT: 

RO LOW ORDER ADDRESS OF MESSAGE BUFFER 
Rl HIGH ORDER ADDRESS OF MESSAGE BUFFER 
NOTE; Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 

THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 



PRMESS: 



10$: 



15$: 



20$: 



SAVREG 




MOV 


R5>RAMR5H 


MOV 


R0.R5 


TST 


KTENABLE 


BNE 


101 


CLR 


Rl 


MOV 


R1.R3 


ROL 


RO 


ROL 


Rl 


PRINTX 


♦PR0ASC.R1.R5 


MOV 


R5.-CSP) 


MOV 


Rl.-CSP) 


MOV 


♦PROASC.-CSP) 


MOV 


«3,-(SP) 


MOV 


SP,RO 


TRAP 


CIPNTX 


ADD 


*10,SP 


CMP 


♦177777, (R5) 


BNE 


15$ 


PRINTX 


OHESBFN 


MOV 


omesbfn.-csp) 


MOV 


#1,-(SP) 


MOV 


SP.RO 


TRAP 


C$PNTX 


ADD 


♦4.SP 


PRINTX 


♦PR1ASC 


MOV 


#PR1ASC,-(SP) 


MOV 


#1, -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


04, SP 


CLR 


R4 


MOV 


R5.R1 


MOV 


R3.R0 


BEQ 


20$ 


JSR 


PCSETMAP 


MOV 


R0.R5 



i SAVE THE REGISTERS 

I SAVE DEVICE REGISTER POINTER 

j SAVE LOW ORDER ADDRESS 

l ADDRESS ABOVE 28K? 

i BR IF YES 

iSET HIGH ORDER ADDRESS TO 

j SAVE HIGH ORDER ADDRESS 

jSHIFT BIT15 TO C BIT 

l SHIFT TO HIGH ORDER FOR PRINTOUT 

jPRINT MESSAGE BUFFER ADDRESS 



^MESSAGE BUFFER FULL OF ONES 

jBR IF BUFFER IS PROBABLY OKAY 

j "MESSAGE BUFFER PROBABLY NOT VALID" 



j PRINT HEADER FOR CONTENTS 



-.NUMBER OF THE NEXT WORD 

jCOPY LOW ORDER ADDRESS 

I COPY HIGH ORDER ADDRESS 

tBR IF NOT ABOVE 28K 

I SETUP PAR ADDRESS IN RO 

jGET PAR FORMAT ADDRESS ABOVE 28K 

PRINTX *MESHEA,(R5)> jPRINT "MESSAGE BUFFER HEADER ■" 



H6 
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SEG) 72 



2570 



2571 



2572 



2573 



2574 



2575 



2576 
2577 
2578 
2579 



014222 

014224 

014230 

014234 

014236 

014240 

014244 

014244 

014246 

014252 

014256 

014260 

014262 

014266 

014266 

014270 

014274 

014300 

014302 

014304 

014310 

014310 

014312 

014316 

014322 

014324 

014326 

014332 

014332 

014334 

014340 

014344 

014346 

014350 

0143S4 

014354 

014356 

014362 

014366 

014370 

014372 

014376 

014376 

014400 

014404 

014410 

014412 

014414 

014420 

014426 

014430 

014434 

014434 

014440 

014444 

014446 

014450 



012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 

012546 
012746 
012746 
010600 
104415 
062706 
022737 
001402 
000137 

012746 
012746 
010600 
104415 
062706 



015023 
000002 



000006 



015070 
000002 



000006 



015135 
000002 



000006 



015202 
000002 



000006 



015247 
000002 



000006 



015314 
000002 



000006 



015361 
00OO02 



00O006 

000001 002134 

014540 

014542 
000001 



000004 



40$; 



MOV 


(R5)t,-(SP) 


MOV 


*MESHEA,-(SP) 


MOV 


*2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


*6,SP 


PRINTX 


*0ATAFL,(R5)* 


MOV 


(R5)*,-CSP) 


MOV 


*OATAFL,-(SP) 


MOV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ACD 


♦6.SP 


PRINTX 


*RBPCRA t CR5)* 


MOV 


CR5)*.-CSP) 


MOV 


#«BPCRA,-(SP) 


MOV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


*XS0C0N,(R5)* 


MOV 


(R5)*.-(SP) 


MOV 


♦XSOCON.-CSP) 


MCV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


•XS1C0N.CR5)* 


MOV 


(R5)*,-CSP) 


MOV 


♦XSICON.-(SP) 


MOV 


♦2,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADO 


♦6.SP 


PRINTX 


*XS2C0N,(R5)* 


MOV 


(R5)*.-CSP) 


MOV 


*XS2C0N,-(SP) 


MOV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


♦6.SP 


PRINTX 


♦XS3C0N.(R5)> 


MOV 


(R5)*,-CSP) 


MOV 


OXS3C0N.-CSP) 


MOV 


02,-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


ADD 


*6,SP 


CMP 


•l.TRANSTST 


BEQ 


401 


JMP 


501 


PRINTX 


♦RAHFHR 


MOV 


ORAMFHR, -CSP) 


MOV 


#1,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTX 


AOD 


04, SP 



j PRINT "DATA FIELD LENGTH 



jPRINT "RESIDUAL BYTE COUNTER ■ " 



iPRINT "XST A TO CONTENTS 



t PRINT "XSTAT1 CONTENTS 



, PRINT "XSTAT2 CONTENTS 



jPRINT "XSTAT3 CONTENTS 



, CHECK FOR RAM DUMP REQUIRED 
jBR, IF REQUIRED 
»JMP IF NO DUMP 



16 



CZTKHA TK-25 FRT ENQ FUNC 04 
PRMESS - PRINT CONTENTS OF MESSAG 



MACRO M1200 
BUFFER 
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SEQ 73 



2580 
2581 
2582 
2583 
2584 
2585 
2586 
2587 
2588 
2589 
2590 
2591 
2592 
2593 
2594 
2595 
2596 
2597 
2598 
2599 
2600 
2601 
2602 
2603 



014454 
014462 
014470 
014474 
014502 
014506 
014514 
014520 
014526 
014534 
014540 
014542 
014640 
014720 
014765 

015023 
015070 
015135 
015202 
015247 
015314 
015361 



012737 

012737 

004737 

012737 

004737 

012737 

004737 

012737 

012737 

0047S7 

000207 

045 

045 

045 

045 

045 
045 
045 
045 
045 
045 
045 



000010 
000020 
010636 
000040 
010636 
000060 
010636 
0OOO20 
000100 
010636 

116 
116 
116 
116 

116 
116 
116 
116 
116 
116 
116 



002250 
011020 

011020 

011020 

002250 
011020 



045 
045 
045 
045 

045 
045 
045 
045 
045 
045 
045 



50$: 

RAMFHR 

MESBFN 

PROASC 

PR1ASC 

MESHEA 
DATA^L 
RBPCRA 
XSOCON 
XS1C0N 
XS2C0N 
XS3C0N 



MOV 

MOV 

JSR 

MOV 

JSR 

MOV 

JSR 

MOV 

MOV 

JSR 

RTS 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCI. 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.EVEN 



#8. ,RAMS1Z 

♦20.RAMHLD 

PC.RAMER 

*40 t RAMHLD 

PC.RAMER 

060.RAMHLO 

PC.RAMER 

016. .RAMSIZ 

0100.RAMHLD 

PC.RAMER 

PC 

'*N*A ******* 

'*N#A MESSAGE 

•*N#A MeesaQe 

'#N#A Maeeaga 



iRAM FIELD IS 8 BYTES LONG 

jFIELD STARTS AT 20 OCTAL CIO HEX) 

I READ AND PRINT THEM 

jFIELD STARTS AT 40 OCTAL C20 HEX) 

I READ ANO PRINT THEM 

jFIELD STARTS AT 60 OCTAL (30 HEX) 

I READ ANO PRINT THEM 

iRAM FIELD IS SIXTEEN BYTES LONG 

iFIELD STARTS AT 100 OCTAL (40 HEy,') 

I READ AND PRINT THEM 

, RE TURN 
*** SPECIAL CONTROLLER RAM MEMORY DUMP ********** 
BUFFER CONTENTS PROBABLY NOT VALID' 
Buffer Addreaa - #01#05' 
Buffer Contents: ' 



'#N#A 
•#N#A 

'#N#A 
'#N#A 
'#N#A 
'#M#A 



Meeeaoe Buffer H«eKi#r 
Data Field Lenath 
Residual Byte Counter 
XSTATO Contents 
XSTAT1 Contents 
XSTAT2 Contenta 
XSTAT3 Contents 



i*06' 
#06* 
#06' 
#06' 
#06' 
#06' 
#06' 



J6 



CZTKHA TK-25 FRT END FUNC 04 MACRO M1200 
PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



2605 
2606 
2607 
2608 
2609 
2610 
2611 
2612 
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620 
2621 
2622 
2623 
2624 
2625 
2626 
2627 



2628 



2629 
2630 
2631 
2632 
2633 
2634 
2635 



2636 
d637 
2638 
2639 
3640 



015426 

015426 

015432 

015434 

015440 

015442 

015446 

015450 

015452 

015452 

015454 

015456 

015462 

015466 

015470 

015472 

015476 

015476 

015502 

015506 

015510 

015512 

015516 

015520 

015524 

015530 

015532 

015534 

015544 

015544 

015546 

015550 

015552 

015554 

015560 

015564 

015566 

015570 

015574 

015576 

015600 

03 5602 

015604 



010005 
013700 
010004 
013701 
006100 
006101 

010446 
010146 
012746 
012746 
010600 
104415 
062706 

012746 
012746 
010600 
104415 
062706 
005004 
012701 
012702 
011100 
011203 



010346 
012246 
012146 
010446 
012746 
012746 
010600 
104415 
062706 
005204 
020405 
002001 
000752 
000207 



♦CB 
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.SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 



SEQ 74 



ROUTINE TO PRINT EXPECTED ANO RECEIVED MESSAGE BUFFERS 

RO - NUMBER OF WORDS IN BUFFER 

IMPLICIT INPUTS: 

EXPMSG - EXPECTED MESSAGE BUFFER 

RECMSG - RECEIVED MESSAGE BUFFER 

RCVHIhDD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 

RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 



002254 
002252 



015606 
000003 



0OO010 

015653 
000001 



0OOO04 

002270 
002434 



015711 
000005 



000014 



PRMSGEXP:: 

SAVREG 

MOV 

MOV 

MOV 

MOV 

ROL 

ROL 

PRINTX 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADD 

CLR 

MOV 

MOV 

20$: MOV 
MOV 
XOR 

PRINTX 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
TRAP 
ADD 
INC 
CMH 
BGE 
BR 

50$: RTS 



R0.R5 

RCVLOADD t R0 

R0.R4 

RCVHIADD.R1 

RO 

Rl 

♦PRMSG0,K1,R4 

R4.-CSP) 

Rl.-CSP) 

♦PRMSGO.-CSP) 

♦3,-CSP) 

SP.RO 

CIPNTX 

♦10, SP 

♦PRMSG1 

♦PRMSG1.-CSP) 

♦l.-(SP) 

SP,RO 

CIPNTX 

♦4,SP 

R4 

♦EXPMSG, Rl 

♦RECMSG, R2 

(Rl).RO 

(R2),R3 

R0,R3 

♦PRMSG2.R4 

R3, (SP) 

(R2)*.-(SP) 

(Rl)», -(SP) 

R4 . ( SP 1 

♦PRMSG2,-CSP) 

♦5, (SP) 

SP.RO 

CIPNTX 

♦14.SP 

R4 

R4.R5 

50$ 

20$ 

PC 



iSAVE R1-R5 UNTIL NEXT RETURN 

I SAVE NUMBER OF WORDS 

|GET RECV LOU ADORESS 

iCOPY LOW ADDRESS 

,GET RECV HIGH ADDRESS 

iSHlFT BIT15 TO C BIT 

i SHIFT TO HIGH ORDER FOR PRINTOUT 

I PRINT MESSAGE BUFFER ADDRESS 



, PRINT HEADER FOR CONTENTS 



I NUMBER OF THE CURRENT WORD 

,GET EXPD BUFFER ADDRESS 

jGET RECV BUFFER ADDRESS 

i GET EXPD 

jGET RECV 

j XOR EXPD/RECV 



(R1)*,CR2)*,R3 



{NUMBER OF The: 
I DONE ALL YE TV 
I BR If YLS 
iDO ANOTHER 
l RE TURN 



NEXT 



K6 



C/TKHA TK-25 FRT END FUNC 04 MACRO M1200 

PRHSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
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SEQ 75 



2611 












2642 


015606 


045 


116 


045 


PRMSGO 


2645 


015653 


045 


116 


045 


PRMSG1 


2644 


015711 


045 


116 


045 


PRMSG2 


2645 












2646 













.ASCIZ '*N*A M««sa0« Buffer Address - *01*05' 

.ASCIZ '«N*A M«nsno« Buffer Contents:' 

.ASCIZ '*N*A WORD *#02*A EXPO: *Q6*A RECV; *Q6*A XQR 5 *Q6' 

,EVEN 



L6 



CZTKHA TK-25 FRT END FUNC *4 MACRO M1200 20-APR-84 08:13 
PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 
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SEQ 76 



2648 
2649 
2650 
2651 
2652 
2653 
2654 
2655 
2656 
2657 
2658 
2659 
2660 
2661 
2662 
2663 
2664 
2665 

2*66 
2667 
2668 
2669 
2670 
2671 
2672 
2673 
2674 
2675 
2676 
2677 
2678 
2679 
2680 



2681 
2682 
2683 
2684 
2685 
2686 
268 7 
2688 
2689 
2690 



015776 

015776 

016002 

016004 

016010 

016012 

016016 

016022 

016024 

016030 

016034 

016036 

016042 

016046 

016056 

016060 

016062 

016066 

016074 

016076 

016076 

016100 

016104 

016110 

016112 

016116 

016122 

016124 

016126 

016132 

016142 

016144 

016144 

016154 

016154 

016156 

016160 

016162 

016164 

016164 

016170 

016174 

016200 

016202 



,SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 

f 

ROUTINE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 

ONLY THE FIRST 8 ERRORS ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 

RO - NUMBER OF BYTES IN BUFFER 

IMPLICIT INPUTS t 



010005 
0050.7 
005004 
012701 
012702 
111100 
042700 
110037 
111203 
042703 
110337 

122122 
001431 
005237 
023727 
101023 

010346 
013746 
013746 
010446 
012746 
012746 
010600 
104415 
062706 

000404 



005204 
020405 
002001 
000717 

013746 002266 
012746 016277 
012746 000002 
010600 
104415 



002266 

002270 
002434 

177400 

016344 

177400 
016346 



002266 
002266 



016346 
016344 

016212 
000005 



000014 



000010 





EXPMSG 


- EXPECTED MESS 


AGE BUFFER 




RECMSG 


- RECEIVED MESSAGE BUFFER 


PRBYTEXP:; 








SAVREG 




jSAVE R1-R5 UNTIL NEXT RETURN 




MOV 


R0.R5 


i SAVE NUMBER OF BYTES 




CLR 


PRMNO 


sINIT ERROR COUNT 




CLR 


R4 


I NUMBER OF THE CURRENT BYTE 




MOV 


♦EXPMSG, Rl 


sGET EXPO BUFFER ADDRISS 




MOV 


*f £CMSG,R2 


iGET RECV BUFFER ADDRESS 


20$: 


MOVB 


(Rl).RO 


»GET EXPO BYTE 




BIC 


♦tC<377>,R0 


j CLEAR UPPER BYTE 




MOVB 


RO,PRBEXP 


j SAVE FOR ERROR REPORT 




MOVB 


CR2),R3 


iGET RECV BYTE 




BIC 


*tC<377>,R3 


j CLEAR UPPER BYTE 




MOVB 


R3.PR9REC 


j FOR ERROR REPORT 




XOR 


R0,R3 


iXOR EXPD/RECV 




CMPB 


(Rl)>»CR2)f 


lEXPD - RECV? 




BEG 


30$ 


jBR IF YES 




INC 


PRMNO 


i UPDATE ERROR COUNT 




CMP 


PRMNO ,$8. 


iPRINTED 8? 




BHI 


30$ 


,BR IF YES 


27$: 


PRINTX 


♦PRBMSG , R4 , PRBEXP , PRBREC . R3 




MOV 


R3.-CSP) 






MOV 


PRBREC, -CSP) 






MOV 


PRBEXP, -CSP) 






MOV 


R4.-CSP) 






MOV 


♦PRBMSG.-CSP) 






MOV 


♦5, -CSP) 






MOV 


SP.RO 






TRAP 


C$PNTX 






ADD 


♦14.SP 






FORCEXIT 50$ 


i&OD 




BR 


35$ 


jBQO 


30$ t 










FORCERROR 27$,NOTSSR 


iB&D 


35$: 






»oao 




INC 


R4 


i NUMBER OF THE NEXT 




CMP 


R4,R5 


iDONE ALL YET? 




BGE 


50$ 


»BR IF YES 




BR 


20$ 


j DO ANOTHER 


50$: 


PRINTX 


*PRB TOT, PRMNO 


j PRINT TOTAL ERROR COUNT 




MOV 


PRMNO, -CSP) 






MOV 


♦PRBTOT. -CSP) 






MOV 


♦2, -CSP) 






MOV 


SP.RO 






TRAP 


C$PNTX 





M6 



fiSfl&xF-.W IHRo^tIS IN ^i^E^gSsAi 



016204 
2691 016210 
2692 

2693 016212 

2694 016277 
2695 

2696 016344 

2697 016346 
2698 



062706 
000207 

045 
045 

000000 
000000 



000006 



116 
116 



045 
045 



PR-84 08:13 
UFFER 
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SEQ 77 



PRBMSG: 
PRBTOT; 

PRLEXP: 
PRBREC: 



ADD 
RTS 

.ASC1Z 
.ASCIZ 

.EVEN 
,WORD 
,WORD 



*6»SP 
PC 



{RETURN 



'*N*A BYTE **D2#A EXPO: *03*A RECV: *Q3tfA XOR: *03' 
'*N*A NUMBER OF BYTES IN ERROR - *D2' 



jEXPD 
jRECV 



:ztkha tk-; 

iXPREC - I 



2700 
2701 
2702 
2703 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 



N6 



i FRT END FUNC 44 MACRO M1200 
UNT EXPD/RECV WORD DATA 



2713 
2714 



2715 
2716 



016350 

016350 

016350 004737 0O747O 

016354 

016354 

016354 104423 
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.SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 



SEQ 76 



i PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
\ INPUTS! 



Rl 
R2 



EXPREC; } 



110017: 



BGNMSG 

J3R 

ENDMSG 

TRAP 



RECEIVED DATA 
EXPECTED DATA 



EXPREC 
PC.PRIXOR 



{PRINT THE DATA 



C*MSG 



B7 



CZTKHA TK-25 FRT ENO FUNC *4 MACRO M1200 

EXPBREC - PRINT EXPD/RECV BYTE DATA 
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SEQ 79 



2715 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2 726 
2727 
2726 
2729 
2730 
2731 

2732 
2733 



.SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 
PRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 



INPUTS : 



Rl 
R2 



RECEIVED DATA BYTE 
EXPECTED DATA BYTE 



016356 

016356 

016356 004737 007340 

016362 

016362 

016362 104423 



2754 
2735 
2736 
2737 
2736 
2739 
2740 
2741 
Si A?. 
2:43 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2753 
2754 
2755 
2756 
2757 

2756 016364 
016364 

2759 016364 004737 013630 

2760 016370 
016370 

016370 104423 
2761 
2762 
2763 
2 764 
2 765 
2 766 
2767 

276tt 



BGNMSG EXPBREC 
EXPBREC j : 

JSR PC.PRIBXOR 

ENOMSG 
L 10020s 

TRAP CIMSG 



jPRINT TH6 DATA 



.SBTTL RAMERR - PRINT RAM ANO PACKET DATA 

♦ 

PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
INPUTS: 

R4 POINTER TO COMMANO PACKET 
IMPLICIT INPUTS: 



RAMOATA 

RAMSIZ 



DATA AS READ FROM THE RAM 
NUMBER Of BYTES IN PACKET 
IF RAMSIZ-0 THEN DEFAIXT TO 8. 



IMPLICIT OUTPUTS; 

RAMSIZ SET TO 



RAMERR : . 



L 10021 J 



BGNMSG RAMERR 

JSR PC.PRAMPKT 
ENDMSG 



jPRINT RAM/PACKET DATA 



TRAP 



CIMSG 



, SBTTL RAMTADD - PRINT TEST ADDRESS, RAM ANO PACKET DATA 



jPRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
1 INPUTS t 



C7 
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SEQ 80 



2 769 
2770 
2771 
2772 
2773 
2774 
2775 
2776 
2777 
2778 
2779 
2760 
2781 
2782 
2783 
2754 
2785 

2/86 
2787 
2708 



2789 
2790 
2791 
2792 
2793 
2794 
2795 
2796 
2797 
2798 
2799 
2800 
2001 
2802 
2803 

2804 
2805 
2806 
2807 
2808 



2809 

2810 
2811 
2812 
2813 
2814 
2815 
281* 
2817 
2818 
2819 



016372 
016372 
01.6372 
016376 
016402 
016402 
016402 



016404 
016404 
016404 
016410 
016414 
016420 
016424 
016424 
016424 



R4 



POINTER TO COMMANO PACKET 



IMPLICIT INPUTS: 

RAMDATA 

RAMSIZ 



ERRHI 
ERRLO 

IMPLICIT OUTPUTS: 

RAMSIZ SET TO 



DATA AS READ FROM THE RAM 

NUMBER OT BYTES IN PACKET 

IF RAMSIZ-0 THEN DEFAULT TO 8, 

HIGH ORDER TEST ADDRESS 

LOW ORDER TEST ADDRESS 



004737 010022 
004737 013630 



104423 



BGNMSG 


RAMTADD 


RAMTADD:: 




JSR 


PC.PRITADD 


JSR 


PC.PRAMPKT 


ENDMSG 




L 10022: 




TRAP 


CIMSG 



iPRINT TEST ADDRESS 
I PRINT RAM/PACKET DATA 



.SBTTL RAMEXP - PRINl RAM EXPD/RECV DATA 

PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
INPUTS: 



Rl 
R2 
R4 



RECEIVED DATA 
EXPECTED DATA 
CONTROLLER RAM ADDRESS 



042701 177400 

042702 177400 
004/37 007614 
004737 007470 



104433 



RAMEXP: 



BGNMSG RAMEXP 





BIC 


*tC<377>,Rl 




BIC 


*tC<377>,R2 




JSR 


PCPRIRAM 




JSR 


PC.PRIXOR 




ENOMSG 




L10023: 







i SAVE EXPD 
» SAVE EXPO 

jPRINT THE 
, PRINT THE 



RAM DATA BYTE 
RAM DATA BYTE 
RAM ADDRESS 
DATA 



TRAP 



CtMSG 



.SBTTL TIMEXP 



PRINT TIMER A.B AND EXP/REC 



» ♦ 



;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
ANO TIMER A # B HEADER MESSAGE 



INPUTS: 



Rl 
R2 



RECEIVED DATA 
EXPECTED DATA 



mw T ^ifirTSfe F w§ «&> ExP*ie Mi20 ° 



20-APR-64 06:13 
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28<f0 
2821 

2822 016426 
016426 

2823 016426 
016426 
016432 
016436 
016440 
016442 

2824 016446 

2825 016452 
016452 
016452 

2826 

2827 

2828 016454 

2829 



012746 
012746 
010600 
104415 
062706 
004737 



104423 



045 



016454 
000001 



000004 
007470 



116 



I - 



TIMEXP; 



045 



L 10024! 



TIMSGOj 
.EVEN 



BGNMSG TIMEXP 



PRINTX 

MOV 

MOV 

MOV 

TRAP 

ADO 

JSR 

ENOMSG 

TRAP 



*TIMSGO 
*TIMSGO,-(SP) 

♦l.-CSP) 
SP.RO 

CIPNTX 

♦4.SP 

PC.PRIXOR 



CIMSG 



SEQ 81 



I PRINT HEADER 



jPRINT THE DATA 



.ASCIZ '*N*A TIMER A STATUS IS IN BIT 3*N*A TIMtR B STATUS IS IN BIT 2* 



E7 



MACRO M12QO 
PRINT TSSR ERRORS ON DATA TRANSFERS 



CZTKHA TK -25 FRT END FUNC *4 
BADSSR 



2831 
2832 
2833 
2834 
2835 
2836 
2837 
2838 
2839 
2840 
2841 
2842 
2843 
2844 



2845 
2846 
2847 



2848 
2849 
2850 



2851 
2852 



016554 
016554 
016554 
016556 
016562 
016562 
016564 
016570 
016574 
016576 
016600 
016604 
016606 
016612 
016612 
016612 
016614 



010246 
042702 

010246 
012746 
012746 
010600 
10*414 
062706 
012602 
004737 



104423 
045 
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.SBTTL BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 



SEQ 82 



PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 
INPUTS; 



Rl 
R2 



CONTENTS OF TSSR 
DATA WRITTEN (8 BITS) 



BGNMSG BADSSR 



177400 



016614 
000002 



000006 
005270 

116 



045 



BADSSR j : 




MOV 


R2.-CSP) 


BIC 


♦177400, R2 


PRINTB 


♦XFERASC, R2 


MOV 


R2.-CSP) 


MOV 


♦XFERASC, -CSP) 


MOV 


♦2.-CSP) 


MOV 


SP.RO 


TRAP 


CIPNTB 


ADO 


♦6.SP 


MOV 


CSP)*.R2 


JSR 


PC.PRITSSR 


ENOMSG 




L10025: 




TRAP 


CIMSG 


XFERASC: 


.ASCIZ **N*A 



j SAVE DATA TRANSFERRED 
iGET JUST ONE BYTE 



tRESTORE R2 

jDECOOE TSSR CONTENTS 



*N*A Data Transferred » *03 



CZTKHA TK-25 FRT END FUNC $4 
GLOBAL SUBROUTINES SECTION 



2854 

2855 

2856 

2857 

2858 

2859 

2860 

2861 

2862 

2863 

2e64 

2865 

2866 

2867 

2868 

2869 

2870 

2871 

2872 

2673 

2874 

2875 

2876 

2877 

2878 

2879 

2880 

2881 

2882 

2883 

2884 

2885 

2886 

2887 

2888 

2889 016650 

2890 016650 

2891 016654 

2892 016662 

2893 016666 

2894 016672 

2895 016674 

2896 016700 

2897 016704 

2898 016706 

2899 016710 

2900 016712 

2901 016714 

2902 016716 
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SEQ 83 



.SBTTL GLOBAL SUBROUTINES SECTION 

! THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
i THAT ARE USED IN MORE THAN ONE TEST. 
I -- 

.SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 



ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING INTO THE TSSR REGISTER. AFTER THE INIT, 
THE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
DETECTED SHOULD BE TREATED AS DEVICE FATAL ERRORS. 



INPUTS? 



R5 



OUTPUTS: 



RO 
CARRY 



ADDRESS OF FIRST REGISTER 



CONTENTS OF TSSR. IF ERROR 
SET XF INIT WAS OKAY 
CLEAR IF FATAL ERROR 



CALLING SEQUENCE t 



012765 OOOOOO 

004737 017124 

016500 OOOOOO 

010004 

042704 176277 

052704 002200 

020400 

001402 

000241 

000401 

000261 

000207 



OOOOOO 



MOV 
JSR 
BCS 
ERRDF 



SOFINITj: 

SAVREG 
MOV 
JSR 
MOV 
MOV 
BIC 
BIS 
CMP 
BEQ 
CLC 
BR 
5$: SEC 
10*! RTS 



*AD0RESS,R5 

PC, SOFINIT 
CONTINUE 



jREPORT FATAL ERROR 



i SAVE THE REGISTERS 
♦0.TSSRCR5) ; DO THE INIT. 

PC.WAITF , WAIT FOR SSR 

TSSR(R5),R0 jGET THE TSSR REGISTER 

R0.R4 jSTART SETUP OF EXPECTED TSSR 

«tC<HIAD0R!0FL>,R4 iCLEAR OUT UNUSED BITS 
*SSR!NBA,R4 |R4 HAS EXPECTED CONTENTS 

R4.R0 iONLY EXPECTED BITS SET ? 

5$ iBRANCH IF OKAY 

1 CLEAR THE CARRY FOR ERROR 
10$ tGO TO EXIT 

jSET THE CARRY BIT 
PC tRETURN TO CALLER 



G7 



CZTKHA 
CHKAMB 



TK- 



5 FRT I 
HECK T! 



& FHFaBiouiW 
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SEQ 84 



2904 

2905 

2906 

2907 

2908 

2909 

2910 

2911 

2912 

2913 

2914 

2915 

2916 

2917 

2918 

2919 

2920 

2921 

2922 

2923 

2924 

2925 

2926 

2927 

2928 

2929 

2930 

29M 

2932 

2933 

2934 

2935 

2936 

2937 

2938 

2939 

2940 

2941 

2942 

2943 

2944 

2945 

2946 

2947 

2948 



016720 
016720 
016724 
016726 
016732 
016734 
016740 
016742 
016744 
016750 
016752 
A 6756 
016760 
016764 
016770 
016772 
016774 
017000 
017002 
0170O6 
017010 
017012 
017014 

017016 



010004 
032700 
001004 
032700 
001023 
000424 
032700 
001011 
032700 
001414 
042704 
020427 
001007 
000410 
032700 
001405 
032700 
001J02 
000241 
000401 
000261 
000207 



,SBTTL CHKAMB - CHECK TSSR FOR AMBIGUITY 



THIS ROUTINE TESTS THE CONTENTS OF THE TSSR REGISTER 
FOR AMBIGUITY 



INPUT : 



RO 



OUTPUT: 



RO 



CONTENTS OF TSSR 



CONTENTS OF TSSR 



CARRY SET - NO AMBIGUITY 

CLR - AMBIGUOUS CONTENTS 



100000 

174077 

000200 

000040 

177761 
000016 

000040 
000006 



CHKAMB : 


SAVREG 






MOV 


R0.R4 




BIT 


OSC.RO 




BNE 


5$ 




BIT 


*tC<NBA!OFUSSR 




BNE 


40$ 




BR 


45$ 


5$: 


BIT 


*SSR,RO 




BNE 


10$ 




BIT 


♦6IT5.R0 




BEQ 


40$ 




BIC 


♦tCTERCLS.R4 




CMP 


R4.016 




BNE 


40$ 




BR 


45$ 


10$ j 


BIT 


*SIT5,R0 




BEQ 


45$ 




BIT 


♦BIT2JBIT1.R0 




BNE 


45$ 


40$: 


CLC 






BR 


50$ 


45$: 


SEC 




50$ j 


RTS 


PC 



I SAVE THE GENERAL REGISTERS 
CONTENTS OF TSSR 
lis BIT 15 SET 7 
i BRANCH IF YES 
!HIAOOR>,R0 i ANY OTHER BITS SET ? 
I MUST BE AN ERROR 
iRETURN WITH SUCCESS 
lIS READY BIT SET ? 
iBRANCH IF READY BIT IS SET. 
lIS FATAL ERROR BIT SET ? 
I ERROR IF NOT 

i CLEAR ALL BUT TERMINATION CODE 
I ALL THREE BITS MUST BE SET 
lERROR IF NOT SET 
I OK IF ALL ARE SET 
lIS FATAL ERROR BIT SET ? 
lERROR IF BIT IS SET WITH SSR 
lIS THIS A FUNCTION REJECT 
I BR, IF TSSR IS OK 
i AMBIGUOUS CONTENTS 

I SHOW SUCCESS - NO AMBIGUITY 
iRETURN TO CALLER 



H7 



Mi 



* 4 MA 8Mi 



;ZTKHA TK-?5 FRT END ^ 
[nAINT.DSBINT - ENABLE/DISABLE INT 



2950 
2951 
2952 
2953 
2954 
2955 
2956 
2957 
2958 
2959 
2960 
2961 
2962 
2963 
2964 
2965 
2966 
2967 
2968 
2969 
2970 
2971 
2972 
2973 
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SEQ 85 



2975 
2976 
2977 
2978 
2979 
2980 
2981 
2982 
2983 
2984 
2985 
2986 



017020 
017021 

017022 

017024 



017026 
017030 
017034 
017040 
017044 
017046 
017050 
017056 



017060 
017062 
017070 



000200 
000001 



000 
000 

000000 

000000 



010046 
013700 
012720 
012720 
012600 
011646 
012766 
000002 



011646 

012766 
000002 



002160 
017072 
000340 



000000 000002 



000340 000002 



.SBTTL ENAINT,DSBIh4T - ENABLE/DISABLE INTERRUPTS 

j DEFAULT DISPLAY INTERRUPT HANDLERS. 

j IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS, 

j OTHERWISE, SAVE DPU REGISTERS AND DISMISS. 



I BIT DEFINITIONS FOR "INTMASK" AND "INTFLAG" BYTES: 

i 



I0KCKIN-BIT7 
IOKSTP-BITO 



I DON'T CHECK FOR BAD INTERRUPTS -- TEST WILL, 
t EXPECT "STOP" INTERRUPT. 



j INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 

INTMASK: .BYTE 

j INTERRUPT FLAG -- SAYS WE GOT ONE (IF POSITIVE) 

INTFLAG: .BYTE 

i SAVED INTERRUPT VECTOR: 
INTVEC: .WORD 
j SAVE CPU PC 
INTCPC: .WORD 

j SUBROUTINE TO ENABLE INTERRUPTS: 
ENAINT: MOV RO.-CSP) i SAVE RO 

IVECRO 

♦INTR.(RO)* 

*PRI07,(R0)* 

CSP)*,R0 

(SP).-(SP) 

<K),2CSP) 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTI 



jGET POINTER TO VECTORS 
i SET UP INTERRUPT VECTOR 

^RESTORE RO 

j SET CPU TO LEVEL 



i SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
OSBINT: MOV (SP).-(SP) 

MOV *PRI07,2(SP) 

RTI 



CZTKHA TK-25 FRT END FUNC 04 
INTR - INTERRUPT HANDLERS 



2988 
2989 

2990 017072 
017072 

2991 017072 012737 

2992 017100 105037 

2993 017104 132737 

2994 017112 001003 

2995 017114 152737 
2996 

2997 

2998 017122 

2999 017122 
017122 
017122 000002 

3000 
3001 



000001 
017021 
000001 
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002174 
017020 



INTR 



.SBTTL INTR 
BGNSRV INTR 



17 

PAGE 62 

- INTERRUPT HANDLERS 



SEQ 86 



000001 017021 



MOV <?1»INTRECV 

CLRB INTFLAG 

BITB *IOKSTP,INTMASK 

BNE It 

BISB *IOKSTP, INTFLAG 



lOEFINE INTERRUPT ENTRY 

i SET FLAG TO SHOW INTERRUPT RECEIVED 

, CLEAR FLAG TO SAY WE GOT INTERRUPT 

jEXPECTING STOP INTERRUPT? 

»BR IF YES 

t NO* SET THE ERROR FLAG, 



{SAVE REGISTERS, MSG BUFFER, ETC. 
1*: 

ENOSRV 
L 10026: 

RTI 



J7 



C2TKHA TK-25 FRT END FUNC *4 MACRO M1200 
WAITF - WAIT FOR SUBSYSTEM READY 
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SEQ 87 



3003 
3004 
3005 
3006 
3007 
3008 
3009 
3010 
3011 
3012 
3013 
3014 
3015 
3016 
3017 

3018 
3019 



3020 
3021 
3022 
3023 
3024 



3025 

3026 
3027 
3028 
3029 
3030 
3031 
3032 



017124 

017124 
017126 
017132 
017132 
017136 
017140 
017144 
017146 
017152 
017154 
017160 
017162 
017166 

017170 
017172 
017172 
017176 
017200 
017204 
0172C6 
017212 
017214 
017220 
017222 
017222 
017224 
017226 
017230 
017232 
017234 
017236 
017240 



104422 
012746 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
016500 
105700 

100421 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 

104422 
005316 
001355 
000241 
000401 
000261 
005326 
000207 



.SBTTL WAITF - WAIT FOR SUBSYSTEM READY 

SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 
INPUTS: 

R5 ADDRESS OF FIRST DEVICE REGISTER 



OUTPUTS: 



WAITF: 



177776 
000001 
002116 
177772 
177756 
000000 

000001 
002116 
177772 
177756 



2* 



31: 

4i: 



RO 
CARRY 



BREAK 

TRAP 

MOV 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

MOV 

TSTB 

BMI 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

BREAK 

TRAP 

DEC 

BNE 

CLC 

BR 

SEC 

DEC 

RT'i 



CONTENTS OF LAST TSSR READ 

SET - READY BIT SET 

CLR - TIMEOUT WAITING FOR READY 



C1BRK 

♦177776, -CSP) 

1 

♦l.CPC)* 



HDLY.CPO* 



-6(PC) 

,-4 

-22CPC) 

.-20 

TSSRCR5).R0 

RO 

3$ 

1 

♦l.(PC)* 



L*DLY,(PC)* 



-6CPC) 

.-4 

-22CPC) 

.-20 

CIBRK 
(SP) 

21 

4$ 

(SP)* 
PC 



I DO A SUPVSR BREAK FIRST. 

jBIG MSEC TIMER 
» DELAY 100US 



iREAD THE TSSR REGISTER 
jTEST FOR READY BIT SET 

» EXIT ON STOP FLAG, 
j WAIT 100 USEC 



j DO A SUPVSR BREAK FIRST. 

;REDUCE DELAY COUNT 

iRETRY UNTIL TIMER EXPIRES 

I C - 0, CONTROLLER STILL RUNNING... 

I... OR HUNG UP AFTER 300 MSEC. 

j C - 1. CONTROLLER IS STOPPED. 

jRESTORE STACK WITHOUT CHANGING CARRY BIT 



I<7 



CZTKHA TK-P5 FRT END FUNC *4 
CHKTSSR - CHECK TSSR FOR 



READY 
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SEQ 88 



5034 
3035 
3036 
3037 
3038 
3039 
3040 
3041 
3042 
3043 
3044 
3045 
3046 
3047 
3048 
3049 
3050 
3051 
3052 
3053 
3054 
3055 
3056 
3057 
3058 
3059 
3060 
3061 
3062 
3063 
3064 
3065 



017242 
017242 
017246 
017250 
017254 
017256 
017262 
017264 
017270 
017272 
017274 
017276 
017300 



004737 
103014 
004737 
103006 
032700 
001405 
032700 
001402 
000241 
000401 
000261 
000207 



.SGTTL CHKTSSR - CHECK TSSR FOR READY 



THIS ROUTINE WAITS FOR READY IN THE TSSR 

AND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 



INPUT: 



R5 



OUTPUT: 



017124 
016720 
100000 
074000 



ADDRESS OF CSR REGISTERS 



RO CONTENTS OF TSSR 
CARRY SET - OKAY 

CLR - NOT READY AMBIGUOUS, OR SC SET 



jWAIT FOR READY 
iBRANCH IF TIME OUT 
I TSSR AM8IG0US? 
jBR IF YES 

{SPECIAL CONDITION SET? 
iBR IF NO 

,M>,RO i ANY ERROR BITS SET? 
j BR IF NO 
j SET FAILURE 

»SET SUCCESS 

I RE TURN TO CALLER 



CHKTSSR 


* 

• 






JSR 


PC.WAITF 




BCC 


20$ 




JSR 


PCCHKAMB 




BCC 


10$ 




BIT 


OSC.RO 




BEQ 


15$ 




BIT 


*<SCE!BIE 




BEQ 


15$ 


10$: 


CLC 






BR 


20$ 


15$: 


SEC 




20? : 


RTS 


PC 



L7 



CZTKHA TK-, 
XNXM - i 



3067 
3068 
3069 
3070 
3071 
3072 
3073 
3074 
3075 
3076 
3077 
3078 
3079 
3080 
3081 
3082 
3083 
3064 
3085 
3086 
3087 
3088 
3089 
3090 
3091 



>5 FRT END FUNC < 4 , 
!H6CK FOR NONEXISTENT 



MEMOR' 
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SEQ 89 



3092 
3093 
3094 
3095 
3096 
3097 
3098 
3099 
3100 
3101 
3102 
3103 
3104 
3105 
3106 
3107 
3108 
3109 
3110 
3111 
3112 
3113 
3114 
3115 
3116 
3117 
3118 



017302 
017310 
017316 
017320 

017322 
017324 
017326 
017332 

017334 
017336 
017542 
017344 
017344 
017350 
017352 
017354 
017356 
017360 



017362 
017362 
017366 
0173/0 
017374 
017376 
017402 
017404 
017406 
017410 
017412 



.SBTTL XNXM 



- CHECK FOR NONEXISTENT MEMORY 



ROUTINE TO TEST FOR A NEXM IN THE RANGE (Rl) THRU (R2), 
ON RETURN, IF "C" - 1, (Rl) - NEXM ADDRESS, 
"C" - 0, ALL ADDRESSES OK, 



012737 017334 O000O4 
012737 000200 000006 
005003 
005711 

020102 

001407 

062701 000002 

000772 

005103 

012716 017344 

000002 

012700 000004 

104436 

005703 

001401 

000261 

000207 



CALL: 



XNXM. 



1$: 



21 



3$ 



MOV 


ADR1.R1 


MOV 


ADR2.R2 


J5R 


PC, 


NXM 


RETURN 




MOV 




02$,6H>4 


MOV 




*PRI04,B*6 


CL.R 




R3 


TST 




(Rl) 


CMP 




R1.R2 


BEQ 




3$ 


ADD 




#2.R1 


BR 




1$ 


COM 




R3 


MOV 




*3$,(SP) 


RTI 






CLRVEC 


$4 


MOV 




04, RO 


TRAF 


) 


CICVEC 


TST 




R3 


BFQ 




.♦4 


SBC 






RTS 




PC 



j TEST "C" ANO PROCEED, 

j SET BUSERR VECTUR. 

j FLAG. 

j TEST THE ADORESS(ES). 

i IF ANY TRAP, CONTINUE AT 3$. 

■OTHERWISE, CONTINUE HERE. 

I BR IF FINISHED CNO NEXM'S). 

i SET NEXT ADDRESS, ., 

I. , .ANO CONTINUE. 

iGOT ONE, SET FLAG. .. 

j. ..ANO DISMISS INTERRUPT.., 
j.., ANO GIVE BACK THE VECTOR. 



{DID WE CATCH ONE ?? 

jNO, "C" - 0, SKIP NEXT. 

lYES, "C" - 1, CRD - NEXM ADDR 



.SBTTL TSTLOOP - CHECK ITERATION COUNT 

SUBROUTINE TO EXECUTE TEST ITERATIONS. 

EXIT WITH "C" SET IF LOOPS ALLOWED ANO LOOP COUNT NON-ZERO, 

LOOP COUNTER IS SET BY "BEGIN, TEST" MACRO. 

CALL: LOOPTO ARG 



005737 
001006 
005737 
100403 
00533/ 
001002 
000241 
000401 
000261 
000207 



002136 
002154 



002166 



TSTLOOP 


• • 








TST 


NOITS 


I ITERATIONS INHIBITED? 




BNE 


i$ 


t YES. 




TST 


QVP 


I NO. 




8MI 


U 


i LOOPS DISALLOWED IN QUICK PASS. 




DEC 


LOOPCNT 


j BUMP LOOP COUNTER. 




BNE 


?.t 




1$: 


CLC 




j LOOP DISALLOWED. OR DONE. 




BR 


3$ 




2*: 


SEC 




I LOOP ENABLED, 


3$: 


Rrs 


PC 





BTO^-feEPi^A'rMR 28 



>UNT 
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M7 

PAGE 66 



SfcQ 90 



i!20 



3121 








3122 








3123 








3124 








3125 








3126 








3127 








3128 








3129 








3130 








3131 








3132 








3133 








3134 








3135 








3136 








3137 








3138 








3139 








3140 








3141 








3142 








3143 








3144 








3145 








3146 








3147 








3148 


017414 






3149 


017414 


010046 




3150 


017416 


005037 


003112 


3151 


017422 


005037 


017662 


3152 


017426 


005037 


005236 


3153 


017432 


105037 


017020 


3154 


017436 


013700 


002152 


3155 


017442 


006300 




3156 


017444 


005737 


003066 


3157 


017450 


001430 




3158 


017452 


100010 




3159 


017454 


052760 


160000 003134 


3160 


017462 








017462 


104455 






017464 


000001 






017466 


003642 






017470 


005202 




3161 


017472 


0O0407 




3162 


017474 


052760 


160001 003134 


3163 


017502 








017502 


104455 






017504 


000002 






017506 


004237 






017510 


000000 




3164 


017512 


012737 


177777 003064 


3165 


017520 








017520 


013700 


002152 




017524 


104451 




3166 


017526 







.SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 

» 

PRINT THE NUMBER AND NAME OF EACH TEST AS WE GO ALONG. 
INCREMENT "TESTK" TO INDICATE THE NUMBER OF TESTS 
IN THE CURRENT RUN SEQUENCE , 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 



INPUT: 



RO 



POINTER TO TEST ID ASCIZ STRING 



OUTPUT: 



R5 



ADDRESS OF FIRST DEVICE REGISTER 

IMPLICIT OUTPUTS: 

TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 

SIDE EFFECTS j 

INTERRUPT LEVEL IS RASIED TO LEVEL OF 
THE DEVICE UNDER TEST 



TSTSETUP:: 
MOV 



3* 



2*1 



CLR 

CLR 

CLR 

CLRB 

MOV 

ASL 

TST 

BEQ 

BPL 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

BR 

BIS 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

MOV 

DODU 

MOV 

TRAP 

DDCLN 



RO.-CSP, 

SIFLAG 

ERRK 

EXTA 

INTMASK 

UNITN,RO 

RO 

NODEV 

4$ 

3$ 

*16»/000 t ERTA6L( 

l.NXR.NXRERR 

CIERDF 

1 

NXR 

NXRERR 

2% 

#160001, ERTABLC 

2.N0INIT 

CtERDF 

2 

NOINIT 



♦-1.DUFLG 

UNITN 

UNITN.RO 

CtDQDU 



SAVE THE TEST ID MESSAGE 
CLEAR "SOFT INIT" FLAG 
CLEAR LOCAL ERROR COUNTER. 
CLEAR ERROR EXTENSION FLAG. 
CLEAR INTERRUPT MASK (CHECK ER^OR) 
GET THE UNIT NUMBER, 
...AND MAKE IT A WORD OFFSET. 
DID STARTUP FIND THE DEVICE? 
BR IF YES 
BR IF NOT IDLE 
RO) i FLAG ERROR IN THE ERROR TABLE 
j NO DEVICE HERE -- PRINT IT 



RO) j FLAG ERROR IN THE ERROR TABLE 
1 DEVICE NOT IDLE 



j DROP THE UNIT 



j ABORT THE PASS 



N7 



KHA TK-25 FRT END FUNC 04 
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-APR -84 


08; 13 PAGE 66-1 


SETUf 


> - PRINT TEST NAME AND 


INIT ERROR COUNTS 






017526 


104444 








TRAP 


CtDCLN 


3167 


017530 


000423 








BR 


5$ 


3168 
















3169 


017532 








4$: 


RFLAGS 


RO 




017532 


104<21 








TRAP 


CIRFLA 


3170 


017534 


032700 


001000 






BIT 


OPNT.RO 


3171 


017540 


001412 








BEQ 


1$ 


3172 


017542 


011600 








MOV 


(SP).RO 


3173 


017544 










PRINTF 


*TNAM,RO 




017544 


010046 








MOV 


RO.-CSP) 




017546 


012746 


01761C 






MOV 


*TNAM.-(SP) 




017552 


012746 


000002 






MOV 


02,-CSP) 




017556 


010600 








MOV 


SP.RO 




017560 


104417 








TRAP 


CIPNTF 




017562 


062706 


000006 






ADD 


*6,SP 


H174 


017566 


005237 


002164 




1$: 


INC 


TSTCNT 


3175 


017572 










SETPRI 


IPRI 




017572 


013700 


002162 






MOV 


IPRI.RO 




017576 


104441 








TRAP 


C*SPRI 


3176 


017600 


005726 






5*: 


TST 


CSP)f 


3177 


017602 


013705 


002156 






MOV 


CSRADDR.R5 


3178 


017606 


000207 








RTS 


PC 


3179 


017610 


045 


123 


045 


TNAM; 


.ASCIZ 


'*S*T*A Test' 


3180 












.EVEN 





SEQ 91 



; GET THE OPERATOR FLAGS. 

j PRINT THE TEST NUMBERS? 
i BR IF NO 
{GET THE ID MESSAGE 
{DISPLAY THE TEST ID 



{ BUhP TEST COUNTER. 
{PRIORITY THAT OF DEVICE 



jFIX UP THE STACK 

i ADDRESS OF TSV REGISTERS ON UNIBUS 



B8 
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TSTEND - PRINT ERRORS RECEIVED 



SEQ 92 



3182 






3183 






3184 






3185 






3186 






3187 017624 






017624 


104421 




3188 017626 


030027 


020000 


3189 017632 


001412 




3190 017634 






017634 


013746 


017662 


017640 


012746 


017664 


017644 


012746 


000002 


017650 


010600 




017652 


104417 




017654 


062706 


000006 


3191 017660 


000207 




3192 






3193 ^17662 


000000 




3194 017664 


045 


101 


3195 017703 


105 


122 


3196 






3197 






3198 






3199 






3200 






3201 






3202 017750 


005237 


017662 


3203 017754 


010046 




±20* 017756 


013700 


002152 


3205 017762 


006300 




3206 017764 


062700 


003134 


3207 017770 


005210 




3208 017772 


032710 


007777 


3209 017776 


001001 




3210 020000 


00^310 




3211 020002 


012600 




3212 020004 


000207 




3213 






3214 020006 


010046 




3215 020010 


013700 


002152 


3216 02OO14 


006300 




3217 020016 


016000 


003134 


3<J8 02OO22 


042700 


170000 


3219 020026 


020037 


002144 


3220 020032 


1030O4 




3221 020034 


023737 


017662 


3222 020042 


103417 




3223 020044 






02OO44 


104421 




3224 020046 


032700 


000040 


3225 020052 


001013 




3226 020054 


012737 


177777 


3227 020062 






020O62 


104455 




020064 


000004 




020066 


017703 





002142 



003064 



,SBTTL TSTENO - PRINT ERRORS RECEIVED 

! AT FNO OT EACH TEST, PRINT THE NUMBER Of ERRORS RECEIVED 
, IF NORMAL ERROR REPORTING IS DISABLED (FLAiIER). 

TSTEKS)! 



i BR IF "IER" NOT SET 
, PRINT ERROR COUNT, 



II 



ERRK: 
O40 ESUM: .ASCIZ 
122 EMAXDUi .ASCIZ 
.EVEN 



RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


ROSIER 


BEQ 


1$ 


PRINTF 


♦ESUri.ERRK 


MOV 


ERRK.-CSP) 


MOV 


#ESUM,-(SP) 


MOV 


♦2,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADO 


♦6.SP 


RTS 


PC 



I LOCAL ERROR COUNT. 
/*A #0#A ERRORS/ 
/ERROR LIMIT REACHED -• DROPPING UNIT/ 



.SBTTL INCERK 



INCREMENT LOCAL ERROR COUNT 



! ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 

INCREMENT LOCAL ERROR COUNT 

SAVE RO 

GET UNIT NUMBER, 

... AND MAKE IT A UORO OFFSET. 

RO GETS AOO*ESS OF ERROR TABLE ENTRY, 

INCREMENT THE DEVICE ERROR COUNT 

DID UC OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777, 

RESTORE RO 

RETURN TO CALLER, 

SAVE RO 

GET UNIT NUTOER 

. . AND MAKE IT A WO«D OFTSFT 

GET ERROR TABLE ENTRY 

EXTRACT ERROR COUNT FIELD 

IS GLOBAL LIMIT EXCEEDED FOR THIS UNIT? 

BR IF YES 

IS LOCAL LIMIT EXCEEDED FQR THIS TEST? 

BR IF NO 

GET OPERATOR FLAGS 

IS DROPPING INHIBITED? 

BR IF YES, 

NO -• DROP THE UNIT 



INCERK •, 


INC 


ERRK i 




MOV 


RO.-(SP) i 




MOV 


UNITN.RO i 




ASL 


RO i 




ADO 


•ERTABL.RO i 




INC 


(RO) , 




AIT 


#7777. (RO) i 




BNE 


11 i 




DEC 


(RO) i 


1$: 


MOV 


(SP)*,RO » 




RTS 


PC i 


CKEMAXt 


MOV 


RO.-CSP) i 




MOV 


UNITN.RO i 




ASL 


RO \ 




MOV 


ERTA8L(R0),R0 I 




BIC 


♦1700O0.R0 i 




CMP 


RO.GERRMAX i 




BMIS 


11 I 




CMP 


ERRK.LERRMAX j 




BtO 


21 i 


111 


RFLAGS 


RO i 




TRAP 


CIRFLA 




BIT 


•IDU.RO j 




BNE 


21 i 




MOV 


♦l.DUFLo i 




ERROF 


4.EMAXDU 




TRAP 


CIERDF 




.WORD 
.WORD 


4 

EMAXDU 



C8 
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INCERK - INCREMENT LOCAL ERROR CqONT 



3228 



3229 

3230 
3231 
3232 
3233 
3234 
3235 
3236 
3237 
3236 
3239 
3240 
3241 
3242 
3243 
3244 
3245 
3246 
324 7 

3246 
3249 
3250 
3251 
3252 
3253 
3254 



020070 
020072 
020072 
020076 
020100 
020100 
020102 
020104 



020106 
02C106 
020112 
020116 
020120 
020126 
020132 
020140 
020142 
020142 
020144 
020150 
020152 
020156 



000000 

013700 002152 
104451 

104444 
012600 
000207 



013701 
006301 
062761 
005237 
023727 
002406 

104421 
032700 
0010C2 
004737 
000207 



2$: 



FATCHKi 



002152 

000001 
002172 

002172 



040000 
020160 



003134 
000031 



91 

i 



APR -84 
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.WORD 





DOOU 


UNITN 


MOV 


UNITN.RO 


TRAP 


CIDOOU 


DOCLN 




TRAP 


CIDCLN 


MOV 


(SP)*,RO 


RTS 


PL 


.SBTTL 


FATCHK - INC FA 



SEQ 93 



I RESTORE RO 

I RETURN TO CALLER 

AL ERRORS AND CHECK FOR LIMIT 



CHECK FATAL COUNTER, AFTER INC. FOR MORE THAN 25 
ERRORS ANO IF OVER CALL UNIT DROP ROUTINE 



iBETTER SAVE THE REGISTERS 

»PICK UP THE UNIT NUMBER 

iMAKE IT INTO A BYTE OTFSET 

I ADO 1 TO THE PROPER UNIT'S ERROR COUNTER 

iBUMP FATAL ERROR COUNTER 

l CHECK AGAINST 25 

l BR. Ir LESS THAN 25 ERRORS 

jREAD THE FLAGS INTO RO 

jBR, IF LOOP ON ERROR IS SET 
jOTHERUISE NEVER BE ABLE TO SCOPE ETC. 
i DROP WtfT IF ALLOWED 
jRETURN ETC. 



SAVREG 




MOV 


UNITN, Rl 


ASL 


Rl 


ADO 


♦1,ERTA8L(R1) 


INC 


FATFLr, 


CMP 


FATFLG,*25. 


BLT 


9$ 


RFLAGS 


PC 


TRAP 


CIRFLA 


BIT 


•ei ti4.ro 


BNE 


91 


JSR 


PC, CKDROP 


RTS 


PC 



D8 



CZTKHA TK-25 FRT END TUNC *4 MACRO M1200 
CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



3256 
3257 
3258 
3259 
3260 
3261 
3262 

3263 
3264 

3265 
3206 
3267 



3268 

3269 

32 70 
3271 
3272 
3273 
3274 
3275 
3276 
3277 
32 7 8 
3279 
3280 
3281 
3282 
3283 
3284 



020160 
020162 
020172 
020172 
020174 
020200 
020202 
020204 
020212 
020212 
020216 
020220 
020220 
020222 
020224 



020226 
020226 
020232 
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.SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 



SEQ 94 



010046 



104421 

032700 000040 

001010 

011600 

012737 177777 003064 

013700 002152 
104451 

104444 
012600 
000207 



I CHECK IF UNIT SHOULD SF. DROPPED 

CKDROP: MOV P0>-CSP) 

FOHCERROR Xl.NOTSSR 
RFLAGS RO 

CtRFLA 

#IDU,R0 

II 

(SP).RO 

•-1.DUFLG 

IUITN 

UNITN.RO 

CIDODU 



1$ 



TRAP 

BIT 

BNE 

MOV 

MOV 

DOOU 

MOV 

TPAP 

DOCLN 

TRAP 

MOV 

RTS 



CIDCLN 

(SP)*,RO 

PC 



l ABORT THE PASS 



♦SBTTL CONFIG 



DETERMINE CONFIGURATION OF SYSTEM 



l SUBROUTINE - DETERMINE CONFIGURATION OF TK-25 SYSTEM, 



0O4737 016650 
000207 



CONFIG: 



JSR PC.SOFINIT 

RTS PC 



E8 



020234 005737 003104 

020240 001403 

020242 012737 000001 177572 

020250 000207 



CZTKNA TK 25 FRT ENO FUNC 04 
KTQN.KTOFF 



3286 
3267 
3288 
3289 
3290 
3291 
3292 
3293 
3294 
3295 
3296 
3297 
3298 
3299 
3300 
3301 
3302 
3303 
3304 
3305 
3306 
3307 



MACRO M12Q0 . _ . .. 
- ENABLE/DISABLE MEMORY MANAGEMENT 



0- APR -84 08s 13 PAGE 69 



SEQ 95 



020252 005737 003104 

020256 001405 

020260 000240 

020262 000240 

020^64 012737 000000 177572 

020272 000207 



.SBTTL KTON.KTOFF 
! SUBROUTINE - ENABLE MEM MGT» 
KTONt 



1*5 



j SUBROUTINE - DISABLE MEM MGT, 



- ENABLE/DISABLE MEMORY MANAGEMENT 



TST 


KTFLG 


1 GOT KT? 


BEQ 


1$ 


1 NO. 


MOV 


*1»SR0 


1 YES, ENABLE KTll, 


RTS 


PC 





KTOFFj TST 
BEQ 
NOP 
NOP 
MOV 

X$J RTS 



KTFLG 
1$ 



*0,SRO 
PC 



j GOT KTll? 

i NO. 



i DISABLE KT 



CZTKHA TK-25 FRT END FUNC 04 
SETMAP - SETUP PAR6 MAPPING 



3309 

3310 

3311 

3312 

3313 

3314 

3315 

3316 

3317 

3318 

3519 

3320 

3321 

3322 

3323 

3324 

3325 

3326 

3327 

3328 

3329 

3330 

3331 

3332 

3333 

3354 

3335 

3336 

3337 

3336 

3339 

3340 

3341 

3342 

3343 

3344 

3345 

3346 

334 7 

3348 
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SEQ 96 



020274 
020274 
020300 
020304 
020306 



020340 
020344 
020350 
020352 
020356 
020362 
020366 
020370 
020372 
020374 
020376 



005737 
001433 
010102 
000006 



042701 
020137 
103011 
010137 
042702 
062702 
010200 
000261 
000401 
000241 
000207 



,SBTTL SETMAP - SETUP PAR6 MAPPING 



THIS ROUTINE SETS UP KERNEL PAR6 TP HANDLE 
AN 18 BIT ADDRESS. THE OFFSET INTO THE PAGE 
IS RETURNED BIASED TO PAR6. 



INPUTS: 



RO 
Rl 



OUTPUTS: 



i 



SETMAP: 



003104 



000177 
003104 

172354 
160000 
140000 



10$: 
15$: 



RO 
CARRY 



SAVREG 

TST 

BEQ 

MOV 

.REPT 

ASR 

ROR 

.ENDR 

BIC 

CMP 

BHIS 

MOV 

BIC 

ADD 

MOV 

SEC 

BR 

CLC 

RTS 



HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 



OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 
SET IF SUCCESS 
CLR IF ERROR 

iSAVE R1-R4 UNTIL NEXT RETURN 

i SYSTEM HAVE ABOVE 28K? 

»BR IF NO 

jSAVE LOW ORDER BITS 

I CONVERT WORD ADDRESS TO 32W BLOCKS 
j MAKE IT DOUBLE PRECISION 

I ALINE FOR LOIJER 4K BCRJCARY 
I HIGHER THAN EXISTING MEMORY? 
I BR IF YES 

1 SETUP MAPPING REGISTER PAR6 
i SETUP DISPLACEMENT IN PAGE 
I ADD IN PAR6 BIAS 
»RETURN IN RO 
tSET SUCCESS 

JSET FAILURE 
j RETURN 



KTFLG 

10$ 

R1.R2 

6 

RO 

Rl 

#177, Rl 

Rl.KTFLG 

10$ 

R1,0#KIPAR6 

♦1G0000.R2 

♦140000. R2 

R2.R0 

15$ 

PC 



G8 
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SEQ 97 



3350 

3351 

3352 

3353 

3354 

3355 

3356 

3357 

3358 

5359 

3360 

3361 

3362 

3363 

3364 

3365 

3366 

3367 

3368 

3369 

3370 

3371 

3372 

3573 

3374 

3375 

3376 

3377 

3378 

3379 

3380 

3381 

3382 

3383 

3384 

3385 

3386 

3387 

3388 

3389 

3390 

3391 

3392 

3393 

3394 

3395 

3396 



020400 
020400 
020404 
020410 
02O412 
020416 
020422 
020424 
020426 
020430 
020434 
020436 
020442 
020444 



020514 
020520 
020522 
020526 
020530 
020534 
020542 
020550 
020552 
020556 
020562 



004737 
010003 
013701 
013702 
010321 
005302 
003375 
005737 
001452 
004737 
005000 
013701 
000006 



004737 
010320 
020027 
103774 
162700 
062737 
023737 
001402 
000137 
004737 
000207 



.SBTTL FILLMEM - FILL MEMORY WITH BACKGROUND PATTERN 

FILL MEMORY WITH A BACKGROUND PATTERN 

INPUTS: 

RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K, 

OUTPUTS: 

NONE 



FILLMEM: 



020252 

003076 
003100 



003104 
020234 
003110 



10$: 



020274 

160000 

020000 
000200 

172354 

020520 
020252 



30$ 



172354 
003104 



50$: 
55$: 



SAVREG 

JSR 

MOV 

MOV 

MOV 

MOV 

DEC 

BGT 

TST 

BEQ 

JSR 

CLR 

MOV 

.REPT 

CLC 

ROL 

ROL 

.ENDR 

MOV 
CMP 
BLO 
SUB 
ADD 
CMP 
BEQ 
JHP 
JSR 
RTS 



PC.KTOFF 

R0.R3 

FREE.R1 

FRESIZ.R2 

R3.CR1)* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PST32W.R1 

6 

01 
RO 

PC.SETMAP 

R3.CR0)* 

RO, #160000 

30$ 

♦20000, RO 

«200,S*KIPAR6 

S#K IP AR6, KTFLG 

50$ 

30$ 

PC.KTOFF 

PC 



SAVE R1-R5 UNTIL NEXT RETURN 

DISABLE KT. 

COPY TEST PATTERN 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOW 28K. 

STORE A BACKGROUND WORD 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADORESS START 
GET >28K START ADDRESS C IN 32W BLOCKS) 

CLEAR C BIT 

CONVERT BLOCKS TO WORDS 

MAKE IT DOUBLE PRECISION 

SETUP PAR6 MAPPING REGISTER 
STORE TEST PATTERN IN >28K ADDRESS 
END OF PAR6 MAPPING AREA? 
BR IF NO 

BACKUP INTO PAR6 MAPPING BEGIN 
POINT TO NEXT 4K BLOCK >28K. 
ENO OF MEMORY? 
BR IF YES 

KEEP GOING ON ETC. 
DISABLE KT. 



H8 
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SEQ 98 



3398 

3399 

3400 

3401 

3402 

3403 

3404 

3405 

3406 

3407 

3408 

3409 

3410 

3411 

3412 

3413 

3414 

3415 

3416 

3417 

3418 

3419 

3420 

5421 

3422 

3423 

3424 

3425 

3426 

3427 

3428 

3429 

3430 

3431 

3432 

3433 

3454 

3435 

3436 

5437 

3438 

3439 

5440 

3441 

3442 

3443 

3444 

5445 

5446 

5447 

5448 

5449 

3450 

3451 

3452 

3453 

3454 



020564 
020564 
020570 
020572 
020576 
02O602 
020606 
020610 
020612 
020616 
02O622 
020626 
020632 
020654 
020656 
020640 
02O642 
020646 
020650 
020654 
020656 



020712 
020716 
020720 
020722 
020726 
020730 
020732 
020734 
020736 
020740 



010003 
004737 
013701 
013702 
020311 
001411 
010137 
005037 
010337 
011137 
000474 
005721 
005302 
003562 
005737 
0014 72 
004 737 
005000 
013701 
000006 



042701 
010046 
010146 
004737 
010004 
012601 
012600 
020314 
001411 
010057 



.SBTTL CMPMEM - COMPARE MEMORY TO BACKGROUND PATTERN 
COMPARE MEMORY WITH A BACKGROUND PATTERN 



INPUTS: 



RO - BACKGROUND PATTERN 

FREE - FIRST LOCATION AVAILABLE TO DIAGNOSTIC 

KTFLG - SET TO HIGHEST MEMORY LOCATION IF > 28K . 



OUTPUTS; 



CARRY - SET IF NO ERROR 
CARRY - CLR IF ERROR 



IMPLICIT OUTPUTS: 



CMPMEM: 



020252 
003076 
005100 



002206 
002204 
002200 
002202 



003104 
020234 
003110 

000177 
020274 



10$: 



15$: 



30$; 



002204 



ERRHI 
ERRLO 
EXPD 
RECV 



SAVREG 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
MOV 
CLR 
MOV 
MOV 
BR 
TST 
DEC 
BGT 
TST 
BEQ 
JSR 
CLR 
MOV 
.REPT 
ROL 
ROL 
,ENDR 
BIC 
MOV 
MOV 
JSR 
MOV 
MOV 
MOV 

crip 

BEQ 
MOV 



- ERROR HIGH ADDRESS 

- ERROR LOW ADDRESS 

- EXPECTED DATA 

- RECEIVED DATA 



R0,R3 

PC.KTOFF 

FREE*R1 

FRESIZ.R2 

R3.CR1) 

151 

Rl, ERRLO 

ERRHI 

R3.EXPD 

CRD, RECV 

50$ 

CRD* 

R2 

10$ 

KTFLG 

55$ 

PC.KTON 

RO 

PST52W.R1 

6 

Rl 

RO 

♦177.R1 

RO.-CSP) 

Rl.-CSP) 

PC.SETMAP 

R0.R4 

CSP)*.R1 

<SP)*.RO 

R3.CR4) 

32$ 

RO, ERRHI 



SAVE R1-R5 UNTIL NEXT RETURN 

COPY TEST PATTERN 

DISABLE KT. 

GET FIRST FREE LOCATION 

SIZE OF FREE SPACE BELOU 28K . 

FREE SPACE LOCATION EQUAL TO EXPD? 

BR IF YES 

SAVE ADDRESS IN ERROR 

NO HIGH ADDRESS 

SAVE EXPD FOR ERROR REPORT 

SAVE RECV FOR ERROR REPORT 

POINT TO NEXT ADDRESS 

DONE ALL MEMORY IN FREE SPACE? 

BR IF NO 

GOT KT? 

NO. GET OUT. 

YES. ENABLE KT. 
HIGH ORDER ADDRESS START 
GET >28K START ADDRESS (IN 32W BLOCKS) 

CONVERT BLOCKS TO UORDS 
MAKE IT DOUBLE PRECISION 

ALINE 4K BOUNDARY 

SAVE HIGH ORDER 

SAVE LOU ORDER 

SETUP PAR6 MAPPING REGISTER 

COPY ADDRESS BIASED TO PAR6 

RESTORE LOU ORDER IN NON PAR6 FORMAT 

RESTORE HIGH ORDER IN NON PAR6 FORMAT 

ABOVE 28K LOCATION EQUAL EXPD? 

BR IF YES 

SAVE HIGH ORDER IN ERROR 



18 



KHA TK-25 FRT ENQ FUNC *4 MACRO M12QQ 20 
MEM - COMPARE MEMORY TO BACKGROUND PATTERN 


-APR -84 
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3455 020744 


010137 


002206 




MOV 


Rl.ERRLO 


3456 020750 


010337 


002200 




MOV 


R3.EXPD 


3457 020754 


011437 


002202 




MOV 


(R4),RECV 


3458 020760 


000421 






BR 


50$ 


3459 020762 


062701 


000002 


32*; 


ADO 


♦2.R1 


3460 020766 


005500 






ADC 


RO 


3461 020770 


062704 


000002 




ADD 


♦2.R4 


3462 020774 


020427 


160000 




CMP 


R4 ,#160000 


3463 0210OO 


103755 






BLO 


30$ 


3464 021002 


162704 


020000 




sue 


♦20OOO.R4 


3465 021006 


062737 


000200 


172354 


ADD 


#200,0#KIPAR6 


3466 021014 


023737 


172354 


003104 


CMP 


»*KIPAR6,KTFLG 


3467 021022 


101744 






BLOS 


30$ 


3468 021024 


004737 


0202132 


50$: 


JSR 


PC.KTOFF 


3469 021030 


000241 






CLC 




3470 021032 


000403 






BR 


60$ 


3471 021034 


004737 


020252 


55$: 


JSR 


PC.KTOFF 


3472 021040 


000261 






SEC 




34 73 021042 


000207 




60$: 


RTS 


PC 


34 74 













SEQ 99 



i SAVE LOW ORDER IN ERROR 
I SAVE EXPD FOR ERROR REPORT 
j SAVE RECV FOR ERROR REPORT 

I 

l UPDATE NON PAR6 ADDRESS 

jMAKE IT DOUBLE PRECISION ADD 

j UPDATE PAR FORMAT ADDRESS 

■END OF PAR6 MAPPING AREA? 

iBR IF NO 

iBACKUP INTO PAR6 MAPPING Rl GIN 

I POINT TO NEXT 4K BLOCK >28K. 

lENO OF MEMORY? 

i BR IF NO 

j TURN OFF MEMORY MAPPING 

I SET FAILURE 

I 

l TURN OFF MEMORY MAPPING 

{SET SUCCESS 



CZTKHA TK-25 FRT END FuNC «4 
REGSAV - SAVE R1-R5 ON STACK 
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SEQ 100 



34 76 






3477 






34 78 






3479 






3480 






3481 






3482 






3483 






3484 






3485 






3486 






3487 






3486 






3489 






3490 






3491 






3492 






3493 






3494 






3495 






3496 


021044 




3497 


021044 






021044 


104422 


3498 


021046 


01O446 


3499 


021050 


010346 


3500 


021052 


010246 


3501 


021054 


010146 


3502 


021056 


010546 


3503 


021060 


016605 000012 


3504 


021064 


004736 


3505 


021066 


012601 


3506 


021070 


012602 


3507 


021072 


012603 


3508 


021074 


012604 


3509 


021076 


012605 


3510 


021100 






021100 


104422 


3511 


021102 


000207 


3512 







.SBTTL REGSAV - SAVE R1-R5 ON STACK 

ROUTINE TO 

SAVE Rl THROUGH R5 ON THE STACK 

CALLING SEQUENCE: 

JSR R5, REGSAV 

THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
THE CALLING ROUTINE. AT THE END Of THE CALLING ROUTINE, 
THE RTS PC RETURNS CONTROL TO THIS ROUTINE TO RESTORE 
REGISTERS, 

THIS ROUTINE SHOULD ONLT BE CALLED FROM ROUTINES WHICH ARE 
CALLED VIA A JSR PC INSTRUCTION 



; - 



REGSAV? 




BREAK 




TRAP 


CIBRK 


MOV 


R4,-(SP) 


MOV 


R3.-CSP) 


MOV 


R2.-CSP) 


MOV 


Rl.-CSP) 


MOV 


R5.-CSP) 


MOV 


10.(SP).R5 


JSR 


PC,8(SP)f 


MOV 


<SP)*.R1 


MOV 


(SP)*,R2 


MOV 


CSP)».R3 


MOV 


(SP)*.R4 


MOV 


CSP)» ,R5 


BREAK 




TRAP 


CIBRK 


RTS 


PC 



I LOOK FOR CNTL C 



jLOOK FOR CNTL C 



K8 



3 



TKHA TK-, 
TPAT - I 



3514 
3515 
3516 
3517 
3518 
3519 
3520 
3521 
3522 
3523 
3524 
3525 
3526 
3527 
3528 
3529 
3530 
3531 
3532 
3533 
3534 
3535 



1 ™T END FUNC *4 MACRO M1P00 
T 8 BIT PATTERN FROM OPERATOR 



3536 

3537 
3538 
3539 
3540 
3541 
3542 
3543 
3544 
3545 
3546 



021104 
021104 
021110 
021110 
021112 
021114 
021116 
021120 
021122 
021124 
021126 
021130 
021130 
021130 
021132 
021136 



021140 
021142 



104443 
000406 
021140 
000022 
021142 
000377 
000000 
000377 



103367 

013700 021140 

000207 
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.SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 



SEQ 101 



ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 
INPUTS: 

NONE. 
OUTPUTS: 

RO OCTAL NUMBER FROM THE OPERATOR 
CALLING SEQUENCE: 

JSR PC, GETPAT 



I SAVE THE GENERAL REGISTERS 



GETPAT: 


♦ 
"sAVREG 




1$: 


GMANID 


DATASC.PA 




TRAP 


CIGMAN 




BR 


100001 




.WORD 


PATDAT 




.WORD 


TICOOE 




.WORD 


OATASC 




.WORD 


377 




.WORD 


TILOLIM 




.WORD 


TIHILIM 


10000$: 








BNCOMPLETE 1 




BCC 


1$ 




MOV 


PATDAT, RO 




RTS 


PC 



jRETRY IF ERROR 

{DATA PATTERN FROM OPERATOR 
j RETURN TO CALLER 



\ LOCAL DATA AREA 



OOOOOO 
105 



116 



PATDAT; .WORD 
134 DATASCi .ASCIZ 
.EVEN 



j TEMPORARY STORAGE FOR DATA 

'ENTER DATA PATTERN' 



L8 
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SEQ 102 



3548 








.SBTTL 


GETSEL - ISSL 


IE MENU AND GET OPERATOR RESPOt 


3549 






} * 








3550 






{ROUTINE TO ISSUE A MENU AND GET 


3551 






{THE OPERATOR'S 


RESPONSE. 




355? 














3553 






i INPUTS 


» 






3554 














3555 








RO 


ADDRESS OF ASCIZ STRING OF MENU 


3556 








Rl 


MAXIMUM ALLOWABLE OPERATOR RESPONSE 


3557 














3558 






! OUTPUTS: 






3559 














3560 








RO 


NUMBER OF THE 


OPERATOR'S SELECTION 


3561 






j - 








3562 021166 






GETSEL: 


■ 






3563 021166 








SAVREG 




iSAVE GENERAL REGISTERS 


3564 C213 72 


010002 






MOV 


R0.R2 


i SAVE THE MENU ADDRESS 


3S65 021174 


010203 




li: 


MOV 


R2,R3 


l START OF MENU STRING 


3:366 021176 


005713 




2$: 


TST 


CR3) 


{END OF ASCII ? 


3567 021200 


001412 






BEQ 


3$ 


{BRANCH IF ALL LINES DISPLA 


3568 021202 








PRINTF 


*SELASC,(R3)t 


{DISPLAY THE MENU 


021202 


012346 






MOV 


(R3)*,-CSP) 




021204 


012746 


021352 




MOV 


4SELASC-CSP) 




021210 


012746 


000002 




MOV 


02,-CSP) 




021214 


010600 






MOV 


SP.RO 




021216 


104417 






TRAP 


C$PNTF 




021220 


062706 


000006 




ADD 


06. SP 




3569 021224 


000764 






BR 


2$ 




3570 021226 






3*: 


GMANID 


MENASC. MENKES 


D^-i.O.-l.NO 


021226 


104443 






TRAP 


CIGMAN 




021230 


000406 






BR 


10001$ 




021232 


021406 






.WOW) 


MENKES 




021234 


00OO42 






.WORD 


T$C0DE 




021236 


021357 






.WORD 


MENASC 




021240 


177777 






.WORD 


-1 




021242 


000000 






.WORD 


T$LOLIM 




021244 


177777 






.WORD 


T$HILIM 




021246 






10001$: 








3571 021246 








BNCOMPLETE 1$ 


{RETRY IF ERROR 


021246 


103352 






BCC 


1$ 




3572 021250 


013700 


021406 




MOV 


HENRES.RU 


{GET THE OPERATOR'S REPLY 


3573 021254 


020001 






CMP 


R0.R1 


; COMPARE TO MAXIMUM ALLOWED 


3574 021256 


101411 






6L0S 


5$ 


{BRANCH IF OK 


3575 021260 








PRINTF 


OHENERR 


{DISPLAY ERROR MESSAGE 


021260 


012746 


021304 




MOV 


OHENERR, -(SP) 




021264 


012746 


000001 




MOV 


♦1, fSP) 




021270 


010600 






hov 


SP.HO 




021272 


104417 






TRAP 


C$PNTF 




021274 


062706 


000004 




ADD 


04, SP 




3576 021300 


000735 






BR 


1$ 


{RETRY 


3577 021302 


000207 




5$; 


RTS 


PC 


{RETURN TO CALLER 


3578 021304 


045 


116 


045 MENERR: 


.ASCI/ 


1 *N*A **+ Menu Selection Too LoPfle ++*' 


3579 021352 


045 


116 


045 SELASC: 


.ASCIZ 


'*N*T' 




3580 021357 


105 


156 


164 MENASC: 


.ASCIZ 


'Enter Menu Selection; • 


3581 








.EVEN 






35S2 021406 


000000 




MENRESs 




.WORD 





M8 



CZTKHA TK-25 FRT END FUNC #4 MACRO M1200 20-APR-84 08:13 

CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 



PAGE 76 



SEQ 103 



3584 
3585 
3586 
3587 
3588 
3589 
3590 
3591 
3592 
3593 
3594 
3595 
3596 
3597 
3598 
3599 
3600 
3601 
3602 
3603 
3604 
3605 
3606 
3607 
3608 

3609 
3610 



3611 
3612 
3613 
3614 
3615 



021410 
021410 
021414 
021414 
021416 
021416 
021420 
021420 
021424 
021430 
021432 
021434 
021440 
021442 

021444 



.SBTTL CHKMAN 



CHECK MANUAL INTERVENTION LEGALITY 



ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY, 

INPUT: 



NUNIi, 



OUTPUT: 



CARRY 



SIDE EFFECTS: 



MANUAL INTERVENTION NOT ALLOWED 
MANUAL INTERVENTION IS OK 



A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
ALLOWED . 



104450 

103411 

012746 021444 

012746 000001 

010600 

104417 

062706 000004 

000241 

000207 

045 



116 



045 



i - 






CHKMAN: 


» 

*SAVREG 
MANUAL 






TRAP 


CIMANI 




BCOMPLETE 1$ 




BCS 


It 




PRINTF 


WOMAN 




MOV 


WOMAN, ~(SP) 




MOV 


♦1,-CSP) 




MOV 


SP.RO 




TRAP 


CJPNTF 




ADD 


*4,SP 




CLC 




U: 


RTS 


PC 


NOMAN: 


.ASCIZ 
.even 


'*N*A *** Ma 



;SAVE THE REGISTERS 

;SEE IF MANUAL INTERVENTION OK 

{BRANCH IF ALLOWED 

I PRINT THE WARNING MESSAGE 



jCLEAR CARRY FOR ERROR 
iRETURN 

'*N*A *** Manual Intervention not Allowed - Test Aborted *** 



N8 
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SEQ 104 



3617 
3618 
3619 
3620 
3621 

3622 
3623 
3624 
3625 
3626 
3627 
3628 
3629 
3630 
3631 
3632 
3633 
3634 
3635 



021540 
021540 
021542 
021546 
021554 
021560 
021566 
021572 
021600 
021602 
021604 
021610 
021614 
021620 
021624 



104431 
010037 
062737 
011037 
162737 
013702 
162737 
005302 
001373 
013700 
063700 
162700 
010037 
000207 



003076 
000002 
00310C 
000004 
002012 
000007 



003076 
003100 
000002 
003102 



,SBTTL ENVIRN - SETUP FREE DIAGNOSTIC SPACE 
SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 



003076 
003100 



003100 



ENVIRN; MEMORY 
TRAP 
MOV 

ADD 
MOV 
SUB 
MOV 

10$: sue 
DEC 
BNE 

MOV 
ADD 

sue 

MOV 
RTS 



RO 

C*MEM 

RO.FREE 

02, FREE 

(RO).FRESIZ 

04.FRESIZ 

L*UNIT,R2 

07.FRES1Z 

R2 

10$ 

FREE.RO 

FRESIZ.RO 

02, RO 

RO.FREEHI 

PC 



j GET 1ST FREE ADDRESS,.. 

j ...AND WORD COUNT. 

{ GET NUMBER OF UNITS 

l TAKE AWAY 7 WORDS PER UNIT 



tGET FIRST FREE ADDRESS 

j POINT TO LAST FREE ADDRESS 

, BACKUP 1 WORD 

j STORE LAST FREE ADDRESS 

{RETURN 



B9 



CZTKHA TK-25 FRT END FUNC #4 MACRO M1200 20 -APR -64 08il3 PAGE 76 

KTINIT - SETUP KTU MEMORY MANAGEMENT REGISTERS 



SEQ 10$ 



3637 
3636 
3639 
3640 
3641 
3642 
3643 
3644 
3645 
3646 
364 7 

3646 
3649 
3650 
3651 
3652 
3653 
3654 
3655 
3656 
3657 
3656 
3659 
3660 
3661 
3662 
3663 
3664 
3665 
3666 
3667 
3668 
3669 
3670 
3671 
3660 
3681 
3687 



021626 
02*626 
021632 
021636 
021644 
021646 
021652 
021660 
021664 
021666 
021674 
021702 
021706 
021710 
021714 
021722 
021724 
021730 
021734 
021736 
021742 

021744 
021750 

021752 

021756 



005037 
005037 
023727 
101444 
013700 
012737 
005737 
000240 
013737 
042737 
010037 
005000 
012701 
012761 
010021 
062700 
020027 
001367 
012741 
000405 

012716 
000002 

010037 
000207 



003104 
003106 
002120 

000004 
021744 

177572 

002120 
000177 
000004 

172340 
077406 

000200 
002000 

J.77600 



021752 
000004 



.SBTTL KTINIT - SETUP KTU MEMORY MANAGEMENT REGISTERS 
ROUTINE TO INIT KT-ll 



KTINIT: 



001577 
000004 



003104 
003104 



177740 





CLR 


KTFLG i 




CLR 


KTENA8LE j 




CMP 


L$HIME,#1577 i 




BLOS 


91 j 




MOV 


»#€RRVEC.RO i 




MOV 


♦2I.TORRVEC i 




TST 


B#SRO i 




NOP 






MOV 


LIHIME.KTFLG , 




BIC 


♦177.KTFLG i 




MOV 


RO,B#ERRVEC i 




CLR 


RO i 




MOV 


♦KIPAR0.R1 t 


III 


MOV 


♦77406. -40CR1) i 




MOV 


R0.CR1)* i 




AOO 


♦200. RO i 




CMP 


R0,^2000 i 




BNE 


11 i 




MOV 


♦177600. -(Rl) i 




BR 


91 


2I{ 


MOV 
RTI 


♦6».(SP) i 


61] 


MOV 


RO.SfERRVEC I 


9t; 


RTS 


PC 



INIT >26K MEMORY FLAG 

INIT TEST >26K FLAG 

GOT ENOUGH MEMORY (>28K)7 

NO. 

SAVE OLD ERR VEC PTR. 

SET ERR VEC PTR, 

GOT KTU? 

(TRAP IF NO). 
YES. SET KT FLAG. 

RESTORE OLD ERR VEC PTR, 

RO - MR DATA. 

Rl • KI REGS PTR. 

SET DESCRIPTOR REG. 

SET KIPAR REG. 

BUMP AR DATA BY "4K \ 

AT "I/O"? 

NO 

YES. SET KTPAR7 FOR !/Q, 



SET UP RETURN 

RTI TO NEXT LOCATION 

, RESTORE OLD ERR VEC PTR 4 



C9 

WJ^tIBn^^aSPJ eno kunc * 4 MACR0 MI20 ° s°- APP ** 4 08j13 PAGE 79 seQ 106 

3689 .SBTTL PROTFCTION TABLE 

3690 021760 BGNPROT 
021760 LIPROTjj 

3691 021760 177777 177777 177777 .WORD -1, -1, -1, -1 |N0 DEVICE PROTECTION REQUIRED. 

3692 021770 ENDPROT 
3693 



CZTKHA TK-2! 
INITIALIZE ! 



!EC 



£?IoS 
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SEQ 107 



3695 
36% 
3697 
3698 
3699 
3700 
3701 
3702 
3703 
^704 
3705 

3706 
3707 
3708 
3709 
3710 
3711 



3712 

3713 
3714 
3715 
3716 
3717 
3718 
3719 
3720 
3721 
3722 
3723 



3724 

3725 
3726 

3727 
3728 

3729 

3730 
3731 

3732 
3733 
3734 
3735 



021770 
021770 
021770 
021770 
021776 
022002 
022006 
022012 
022012 
022016 
022020 
022020 
022022 
022030 
022032 
022036 
022040 
022044 
022046 
022052 
022054 
022O62 
022064 
022064 
022066 
022070 
022070 
022074 
022076 
022076 
022100 
022100 
022104 
022106 
022106 
022110 
022110 
022114 
022116 
022116 
022120 
022120 
022120 
022122 
022126 
022132 
022136 



012737 
005037 
005037 
005037 

012700 
104447 

103023 
023737 
103066 
005737 
100470 
013701 
006301 
005761 
001514 
032761 
001056 

104432 
000416 

012700 

104447 

103050 

012700 
104447 

103404 

012700 
104447 

103027 



104433 
005037 

005037 
005037 
005037 



.SBTTL INITIALIZE SECTION 



{THE INITIALIZE SECTION CONTAINS 
l AT THE BEGINNING OF EACH PASS. 



THE CODING THAT IS PERFORMED 



I 
J IF 

I IF 

I 
I -- 



'♦START 1 * OR 
"CONTINUE" 



"RESTART" 
NOTHING 



. SET QUICK-PASS 
IS REQUIRED. 



FLAG AND BUS-INIT. 



005676 002150 
003112 
003106 
002250 

000036 



002152 002012 

003064 

002 152 

003134 

040000 003134 



LIINIT 
40$ j 



00OO35 



000040 



000037 



II: 



2$t 



002164 
002722 
002172 
003336 



♦EPRT1.EPRTSW 

SIFLAG 

KTENABLE 

RAMSIZ 

♦EF. CONTINUE 

♦EF.CONTINUE.RO 

CIREFG 



BGNINIT 



MOV 

CLR 

CLR 

CLR 

READEF 

MOV 

TRAP 

BNCOMPLETE II 

BCC II 

CMP UNITN.LIUNIT 

BHIS 4$ 

TST DUFLG 

BMI NXTU 

MOV UNITN.R1 

ASL Rl 

TST ERTA8LCR1) 

BEQ SETU 

BIT #eiT14,ERTABL(Rl 

BNE NXTU 

EXIT INIT 

TRAP CIEXIT 

.WORD L 10030 -. 

READEF #EF, NEW 

MOV #EF.NEW,RO 

TRAP CIREFG 

BNCOMPLETE NXTU 

BCC NXTU 

READEF ♦EF, START 

MOV #EF. START, RO 

TRAP CIREFG 

BCOMPLETE 21 

BCS 2$ 

READEF ♦EF. RESTART 

MOV *EF, RESTART.RO 

TRAP CIREFG 

BNCOMPLETE 31$ 

BCC 31$ 



l SET UP PRIMARY MESSAGE FOR REPLACEMENT 

I CLEAR "SOFT INIT" FLAG 

I CLEAR TEST ABOVE 28K FLAG 

iCLEAR RAM SIZE FOR RAMERR ROUTINE 



I UNIT IN RANGE? 
,9R IF NO. 
iDROPPED UNIT? 
»BR IF YES 



) , DROPPED? 

I DO NOTHING IF "CONTINUE". 



t TAKE NEXT UNIT IF NOT NEW PASS, 



19$ j 



BRESET 

TRAP 

CLR 

CLP 

CLR 

CLR 



C$RESET 

TSTCNT 

FLLTSW 

FATFLG 

SKIPT 



• 1ST 

I BUS 



PASS, 
RESET 



BUS -INIT. 



iNUMBER OF TESTS RUN IN PASS 
I SHOW 1ST PASS ON FAULT LIGHT MESTAGE 
iRESET FLAG TO ZERO "FATAL ERRORS" 
, CLEAR THE SUBTEST "SKIPPER" 



SW 



CZTKHA TK-25 FRT END FUNC 04 
INITIALIZE SECTION 
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SEQ 108 



3736 
3737 
3738 
3739 
3740 
3741 
3742 
3743 
3744 
3745 
3746 
3747 
3748 
3749 
3750 
3751 

3752 
3753 
3754 
3755 
3756 
3757 

3758 
3759 
3760 
3761 
3762 
3763 
3764 

3765 

3766 
3767 
3768 

3769 
3770 
3771 
3772 



3773 

3774 
3775 
3776 
3777 

3778 
3779 
3780 
3781 
3782 
3783 
3784 
3785 



022142 
022142 
022150 
022154 
022160 
022164 
022166 
022172 
022174 
022176 
022202 

022206 
0222O6 
022214 
022220 
022220 
022222 
022226 
022234 
022236 
022244 
022246 
022246 
022250 
022252 
022252 
022260 
022262 
022266 
022270 
022270 
022272 
022276 

022300 
022300 
022302 
022304 

022304 
022304 
022310 
022312 
022312 
022314 
022320 
022324 
022326 

022332 
022334 
022336 
022342 
022346 
022352 



012737 
004737 
004737 
012700 
005020 
020027 
103774 
000404 
005037 
000137 



012737 
005037 

104422 
005237 
023737 
103423 
012737 
000401 

104444 
000240 

023727 
101752 
005737 
001747 

104421 
032700 
001343 



104424 
000741 



013700 
104442 

103342 
005037 
005237 

012001 
010137 

012001 
011002 
010237 
010137 
012721 
010221 



177777 
021540 
021626 
003134 

003334 



002154 
022252 



177777 
002170 



002152 
002152 

177777 



002012 
002170 

000100 



002152 



003064 
002170 

002156 



002162 
002160 
017072 



002154 



20$: 



30$ x 



311} 



002152 

002012 
003064 



41: 

NEWPAS: 

NXTU: 



000001 



11$: 
PASRPT: 



10$: 
SETUt 



MOV 

JSR 

JSR 

MOV 

CLR 

CMP 

BLO 

BR 

CLR 

JMP 



MOV 

CLR 

BREAK 

TRAP 

INC 

CMP 

BLO 

MOV 

BR 

DOCLN 

TRAP 

NOP 

CMP 

BLOS 

TST 

BEQ 

RFLAGS 

TRAP 

BIT 

BNE 

DORPT 

TRAP 

BR 



•-1.QVP 

PC.ENVIRN 

PC.KTINIT 

*ERTABL,RO 

(RO)* 

RO.OERTABE 

30$ 

4$ 

QVP 

PASRPT 



*-l f UNITN 
DEVCNT 

CIBRK 

UNITN 

UNITN, L$UNIT 
SETU 

♦-1.DUFLG 
11$ 

C$DCLN 



L$UNIT,*1 

NEWPAS 

DEVCNT 

NEWPAS 

RO 

C$RFLA 

♦ISR.RO 

NEWPAS 



C$DRPT 

NEWPAS 



GPHARD UNITN.RO 

MOV UNITN, RO 

TRAP C$GPHRD 
BNCOMPLETE NXTU 

BCC NXTU 

CLR DUFLG 

INC DEVCNT 

MOV CR0)*.R1 

MOV Rl.CSRADDR 



MOV 


(R0)*,R1 


MOV 


CR0),R2 


MOV 


R2.IPRI 


MOV 


Rl.IVEC 


MOV 


•INTR.CRl)* 


MOV 


R2.CRL)* 



I... QUICK VERIFY. , . 

j SET ENVIRONMENT. 

I INITIALIZE KT MEMORY MANAGEMENT 

j CLEAR THE ERROR TABLE 



{GO REPORT THE STATUS 



iINIT UNIT NUMBER... 

I CLEAR COUNT OF DEVICES RUNNING 



I... AND SET NEXT UNIT NUMBER, 



j ABORT. NO MORE UNITS, 



,HOW MANY UNITS SELECTED? 
I BR IF ONLY 1 
»ARE ANY STILL RUNNING? 
j BR IF NO 



I SHOULD WE PRINT STATISTICS 
j BR IF NO 



iGET UNIT N P-TABLE POINTER. 

jBR IF UNIT NOT AVAILABLE. 

I CLEAR "DROPPED" FLAG. 

iGET 1ST REGISTER ADDRESS. 

s ADDRESS OF REGISTERS OF UNIT UNDER TEST 

,GET VECTOR ADDRESS, 

iGET INTERRUPT PRIORITY 

i SET INTERRUPT PRIORITY. 

,SET INTERRUPT VECTOR POINTER*.* 

I . ., VECTOR. . . 

I.,. AND PRIORITY, 



CZTKHA TK-25 FRT END FUNC *4 
INITIALIZE SECTION 
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SEQ 109 



3786 
3787 
3788 
3789 
3790 
3791 
3792 
3793 
3794 
3795 
3796 
3797 
3798 
3799 
3800 

3801 
3802 
3803 



022354 



3804 
3fl05 
3806 
3807 
3808 
3809 
3810 
3811 
3812 
3813 
3814 
3815 
3816 
3817 



3818 



3819 
3820 
3B?1 



022354 
022360 
022362 
022370 
022374 
022402 
022404 
022404 
022406 
022412 
022414 
022414 
022420 
022424 
022430 
022432 
022434 
022440 
022440 
022444 
022450 
022452 
022456 
022462 
022464 
022470 
022476 



022476 
022476 
022502 
022504 
022504 
022504 

022506 



013701 
006301 
052761 
005037 
023727 
101416 

104421 
032700 
001412 

013746 
012746 
012746 
010600 
104417 
062706 

005037 
013701 
010102 
062702 
004737 
103005 
010137 
012737 



012700 
104441 



104411 
045 



,1ST PASS ?? 

I NO, SKIP THE PASS 1 STUFF, 



002152 

100000 
005236 
002012 



001000 



002152 
022506 
000002 



000006 

003066 
002156 

000000 
017302 

003066 

177777 



003134 
000001 



It: 

l VST QVP 
i BEQ 5$ 

! 1ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
{THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 



I CLEAR ERROR EXTENSION FLAG. 
iARE WE TESTING MULTIPLE UNITS? 
»BR IF NO. 
I YES -- GET OPERATOR FLAGS. 

i SHOULD WE PRINT UNIT 0? 

,BR IF NOT. 

I PRINT THE UNIT 



10% i 



003064 



?tx 



MOV 


UNITN.R1 


ASL 


Rl 


BIS 


♦6IT15.ERTABI 


CLR 


EXTA 


CMP 


L$UNIT,01 


BLOS 


101 


RFLAGS 


RO 


TRAP 


CIRFLA 


BIT 


OPNT.RO 


BEQ 


10$ 


PRINTF 


*PUNIT,UNITN 


MOV 


UNITN.-CSP) 


MOV 


♦PUNIT.-CSP) 


MOV 


*2,-(SP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


*6,SP 


CLR 


NOOEV 


MOV 


CSRA00R.R1 


MOV 


R1.R2 


ADD 


♦TSSR.R2 


JSR 


PC . XNXM 


BCC 


21 


MOV 


Rl, NOOEV 


MOV 


♦-I.DUFUG 



I ADDRESS OF FIRST REGISTER 

I START OF REGISTERS 

I ADDRESS OF TSSR REGISTER 

tTEST BOTH CONTROLLER REGISTERS. 

I . ..ANO BR IF ALL OK, 

,FLAG DEVICE AS NON-EXISTENT 

i DROP THIS UNIT. 



i FINALLY, SET CPU PRIORITY ANO WE'RE DONE. 



000000 



5$: 



L10030: 



SETPRI *PRI00 
MOV *PRI00,R0 
TRAP C$SPRI 
ENOINIT 



j ENABLE INTERRUPTS. 



116 



045 PUNITs 



TRAP 

.ASCIZ 

.EVEN 



CIINIT 

/*N*N*A***** TESTING UNIT *D2*A +**♦*/ 



G9 



CZTKHA TK-PS F 
ADD AND DROP U 



mm*? 



3823 
3824 
3825 
3826 
3827 
3828 
3829 
3830 

3831 
3832 
3833 
3834 
3835 



3836 



3837 
3838 
3839 
3840 



3841 
3842 
3843 
3344 
3845 
3846 
3847 
3848 
3849 
3850 
3851 
3852 

3853 
3854 
3855 

3856 
3857 
3858 



022554 
022554 
022554 
022556 
022560 
022566 
022574 
022574 
022576 
022602 
022606 
022610 
022612 
022616 
022616 
022620 
022622 



022650 
022650 
022650 



3859 



022652 
022652 
022652 
022660 
022662 
022664 
022672 
022700 
022700 
022702 
022706 
022712 
022714 
022716 
022722 
022722 
022724 



MACRO M1200 20-APR-84 08; 13 PAGE 81 

.SBTTL ADD ANO DROP UNITS SECTIONS 

|*THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 

i TO BE CA) ADDED TO THE TEST LIST FOR THE FIRST TIME, 

I OR CB) RE -INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 



SEQ 110 



10001 

006301 

052761 100000 003134 

042761 040000 003134 

010046 

012746 022622 

012746 000002 

010600 

104417 

062706 000006 



000167 

000026 

045 



104452 



116 



045 



012737 177777 003064 

010001 

006301 

052761 140000 003134 

000240 000240 000240 

010046 

012746 022726 

012746 000002 

010600 

104417 

062706 000006 

000167 
000030 



I -- 



LiAU; 



BGNAU 





MOV 


R0,R1 i GET UNIT TO BE ADDED (RO) 




ASL 


Rl , MAKE IT A WORD INOEX 




BIS 


0100000, ERTABL(Rl) j SET THE "ACTIVE" BIT 




BIC 


040OO0.ERTABLCR1) i CLEAR THE "DROPPED" BIT 




PRINTF 


01$, RO 




MOV 


RO.-(SP) 




MOV 


♦11,-CSP) 




MOV 


02,-CSP) 




MOV 


SP.RO 




TRAP 


CIPNTF 




ADD 


06. SP 




EXIT 


AU 




.WORD 


JUMP 




.WORD 


L10031-2-. 


1$: 


.ASCIZ 

.EVEN 


/*N*A UNIT *D*A ADDED/ 




ENDAU 


, UNUSED. 


L10031: 







TRAP 



CIAU 



♦• ♦ 



THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
TO BE REMOVED FROM THE TEST LIST. 

SUPVSR DOES THE "DROPPING". THIS IS JUST TO TELL THE MAN. 
"DROPPED" UNITS ARE RE-SELECTED ON OPERATOR "STA" OR "ADD" 
COMMAND. OTHERWISE REMAIN INACTIVE. THE "OISPLAY" COMMAND 
WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
WHICH ARE STILL ACTIVE. 
UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 



LIDU: 



BGNDU 



MOV 


*-l,DUFLG 


MOV 


R0.R1 


ASL 


Rl 


BIS 


0140000, ERTABLCR1) 


240,240 


,240 


PRINTF 


01$, RO 


MOV 


RO.-CSP) 


MOV 


01$. -(SP) 


MOV 


02, -CSP) 


MOV 


SP.RO 


TRAP 


CIPNTF 


ADD 


06, SP 


EXIT 


DU 


.WORD 


JUMP 


.WORD 


L10032-2-, 



j SAY DROPPED 
I ????????? 



OA5 116 



MACRO M1200 



H9 
20-APR-84 08:13 PAGE 81-1 



SEQ 111 



3860 
3861 
3862 



3863 
3864 
3865 
3866 

3867 
3868 
3869 
3870 



3871 
3872 
3873 
3874 
3875 



022726 

022756 
022756 
022756 



022760 
022760 
022760 
022764 
022770 
022772 
022 .*72 
022776 
023000 
023004 
023006 
023012 
023014 
023020 
023022 
023024 
023026 
023032 
023032 
023032 
023032 



104453 



012703 
004737 
103420 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005303 
001357 
004737 



104461 



000550 
017124 



000372 
002116 
17^772 
177756 

020160 



.ASCIZ 

.EVEN 

ENODU 

TRAP 



C*DU 



045 1$: 

L10032: 

i AUTO-DROP CODE SECTION. 

BGNAUTO 
LIAUTO: j 

MOV 
10$: JSR 

BCS 

DELAY 

MOV 

.WORD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

DEC 

BNE 

JSR 
20$: 

ENDAUTO 
L10033: 

TRAP C$AUTO 



/*NfiA UNIT *D*A DROPPED/ 



♦360, ,R3 
PC.WAITF 
20$ 
250. 

♦250..CPC)* 


L$DLY,(PC)f 


-6CPC) 
.-4 

22CPC) 
.-20 
R3 
10$ 
PCCKDROP 



j ENOUGH TIME FOR 2400* REEL TO REWIND 
j WAIT FOR SSR TO SET 
»LEAVE WHEN SSR IS SET 
j WAIT FOR .25 SECONDS 



j BUMP COUNTER DOWN 

j KEEP GOING 

j TRY AND DROP UNIT 

; UNUSED. 



19 



CZTKHA TK 25 FRT END FLNC *4 MACRO M1200 
CLEAN-UP ANO REPORT CODING SECTIONS 



3877 
3878 
3879 
3880 
3881 
3882 
3£83 
3884 

3885 
3886 
3887 
3888 
3889 
3890 
3891 
3892 
3893 



3894 
3895 
3896 
3897 
3898 

3899 



3900 
3901 
3902 
3903 
3904 
3905 
3906 
3907 
3908 
3909 
3910 
3911 



3912 

3913 
3914 
3915 



023034 
023034 
023034 
023040 



023042 
023046 
023054 
023060 
023060 
023060 
023060 



023062 
023062 
023062 
023062 
023066 
023072 
023074 
023076 
023102 
023104 
023106 
023110 
023114 
023116 
023120 
023122 
023124 
023130 
023132 
023136 
023136 
023140 
023142 
023146 
023152 
023154 
023156 
023162 
023164 
023170 
023172 
023172 
023174 
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.SBTTL CLEAN-UP ANO REPORT COOING SECTIONS 



SEQ 112 



005737 003064 
100407 



013705 002156 

012765 000000 000000 

004737 017124 



j THE CLEANUP COOING SECTION CONTAINS THE COOING THAT IS 

j EXECUTED AT THE END Of EACH PASS COR Sl*-PASS). 

i USE TO RETURN DEVICE UNOER TEST TO A NEUTRAL STATE. 

BGNCLN 
L* CLE AN:; 

TST DUFLG 
BMI 1$ 



104412 



012746 
012746 
010600 
104416 
062706 
010246 
010346 
010446 
012704 
005003 
011402 
001467 
100066 
032702 
001015 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
000446 
020227 
001012 

010346 
012746 



023324 
000001 



000004 
003134 

040000 
170000 



023361 
000003 



000010 
160000 

023431 



MOV 
MOV 
JSR 

ENOCLN 

TRAP 



CSRAD0R.R5 

#0,TSSR(R5) 

PC.WAITF 



I "DROPPED" FLAG IS SET ON... 
I...AND GROSS CONTROLLER FAULT... 
j... DON'T TRY TO XCT CLEANUP CODE. 

I ADDRESS OF TSV REGISTERS ON UNIBUS 
»D0 SOFT INIT 



II: 

2\% 

L10034: 

I THE REPORT COOING SECTION CONTAINS THE 

I "PRINTS'* CALLS THAT GENERATE STATISTICAL REPORTS, 



CICLEAN 



LIRPT 



BGNRPT 



1«: 



2*: 



PRINTS 


♦OEVSUM 




MOV 


♦OEVSUM.-(SP) 




MOV 


•l.-CSP) 




MOV 


SP.RO 




TRAP 


C1PNTS 




ADO 


♦4.SP 




MOV 


R2.-CSP) 




MOV 


R3.-CSP) 




MOV 


R4.-CSP) 




MOV 


♦ERTABL.R4 


I GET START OF ERROR TAB 


CLR 


R3 


i CLEAR UNIT NUMBER 


MOV 


(R4),R2 


, GET ERROR TABLE ENTRY 


BEQ 


4* 


l ZERO IF UNIT NOT RUN 


BPL 


4$ 




BIT 


♦6IT14,R2 


I WAS UNIT DROPPED? 


BNE 


2* 


, BR IF YES 


BIC 


♦tC7777,R2 


» GET ERROR COUNT FIELD 


PRINTS 


•OEV0NL.R3.R2 


j PRINT 


MOV 


R2.-CSP) 




*ov 


R3, (SP) 




MOV 


♦OEVONL.-(SP) 




MOV 


•3,-CSP) 




MOV 


SP,RO 




TRAP 


CIPNTS 




ADD 


♦10, SP 




BR 


41 




CMP 


R2, $160000 


; UAS UNIT NON-EXISTENT? 


BNE 


3$ 


j BR IF NO 


PRINTS 


♦0EVNXR.R3 




MOV 


R3.-CSP) 




MOV 


ODEVNXR, -CSP) 





6 TEST IT 



J9 



CZTKHA TK-25 FRT ENO FUNC #4 MACRO M1200 

CLEAN-UP AND REPORT COOING SECTIONS 
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SEQ 113 



3916 

3917 
3918 
3919 



3920 
3921 
3922 



3923 
3924 
3925 
3926 
3927 
3928 
3929 
3930 



3931 
3932 
3933 
3934 
3935 
3936 
3937 
3938 
3941 
3948 
3954 



023200 
023204 
023206 
023210 
023214 
023216 
023222 
023224 
023224 
023226 
023232 
023236 
023240 
023242 
023246 
023250 
023254 
023254 
023256 
023260 
023264 
023270 
023272 
023274 
023300 
023304 
023306 
023312 
023314 
023316 
023320 
023322 
023322 
023322 



023324 
023361 
023431 
023513 
023574 



012746 
010600 
104416 
062706 
000431 
020227 
001012 

010346 
012746 
01274* 
010600 
104416 
062706 
000414 
042702 

010246 
010346 
012746 
012746 
010600 
104416 
062706 
062704 
005203 
020427 
103701 
012604 
012603 
012602 



104425 



045 
045 
045 
045 

045 



000002 

000006 
160001 



023513 
000002 



000006 
170000 



023574 
000003 



000010 
000002 

003334 



3$ 



30$: 



41: 



116 
101 
101 
101 
101 



L 10035: 



045 DEVSUM 

040 DEVONL 

040 DEVNXR 

040 DEVNRO 

040 DEVDRO 



MOV 

MOV 

TRAP 

ADO 

BR 

CMP 

BNE 

PRINTS 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADD 

BR 

BIC 

PRINTS 

MOV 

MOV 

MOV 

MOV 

MOV 

TRAP 

ADO 

ADO 

INC 

CMP 

BIO 

MOV 

MOV 

MOV 

ENORPT 

TRAP 



.ASCIZ 
.ASCIZ 
.ASCIZ 
, ASCIZ 
.ASCIZ 
.EVEN 



02,-CSP) 

SP.RO 

CIPNTS 

♦6.SP 

41 

R2 » #160001 

301 

♦0EVNRD.R3 

R3.-CSP) 

<K)EVNRD,-(SP) 

#2,-CSP) 

SP.RO 

CIPNTS 

*6,SP 

4$ 

♦tC7777,R2 

♦DEVDflO.R3.R2 

R2,-(SP) 

R3.-CSP) 

♦OEVDRO, -CSP) 

#3,-CSP) 

SP.RO 

CIPNTS 

#10. SP 

02.R4 

R3 

R4.#ERTABE 

II 

CSP)*,R4 ^ 

CSP)*,R3 

(SP)»,R2 



CIRPT 



I WAS UNIT NOT READY AT STARTUP? 
I BR IF NO. 



j UNUSED. 



/rffWADEVICE STATU5 SUMMARY ;#N/ 

/*A UNIT #03*A ONLINE, ERRORS • *D*N/ 

/*A UNIT *D3#A DROPPED, NON-EXISTENT REGISTERS/ 

/*A UNIT #D3*A DROPPED, NOT READY AT STARTUPS/ 

/#A UNIT *D3*A DROPPED, ERRORS * *0*N/ 



CZTKHA TK-25 FRT END FUNC *4 
TEST 1: WRITE TAPE MARK RETRY 



3964 

3965 
3966 
3967 
3966 
3969 
3970 
3971 
3972 
3973 
3974 
3975 
3976 



3977 
3978 
3979 
3934 
3985 
3986 
3987 
3986 



023644 
023644 
023644 
023650 
023654 
023662 
023666 
023672 
023700 
023704 



005037 
005037 
012737 
012700 
004737 
012737 
005037 



002172 
003104 
005676 
032111 
017414 
000001 
026544 



l<9 
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SEQ 114 



.SBTTL TEST 1: WRITE TAPE MARK RETRY 



THIS TEST VERIFIES PROPER OPERATION OF THE WRITE TAPE MARK RETRY COMMAND (SPACE 
REVERSE, ERASE, WRITE TAPE MARK). SUBTESTS ARE AS FOLLOWS: 

THE TEST CONSISTS OF THE FOLLOWING 4 SUBTESTS 



BGNTST 



002150 



002166 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


0EPRT1.EPRTSW 


MOV 


OTST29ID.A0 


JSR 


PC.TSTSETUP 


MOV 


Ol.LOOPCNT 


CLR 


T29CNT 


T29L00P} 





Tl:: 

jCLEAR FATAL ERROR FLAG 
I HOLD OFF KT11 

, PRIMARY ERROR MESSAGE 

, ASCII MESSAGE TO IDENTIFY TEST 

i DO INITIAL TEST SETUP 

f PERFORM 1 ITERATIONS 

j CLEAR TAPE RECORD COUNTER 



L9 
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SEQ 115 



3990 






. ♦ 












3991 






I 












3992 






jTEST 


1, SUBTEST 1 








3993 






1 












3994 






{VERIFIES THAT 


A WRITE TAPE MARK 


RETRY 


COMMAND ISSUED WHILE THE 




3995 






{TAPE 


IS POSITIONED AT BOT CAUSES 


FUNCTION REJECT TERMINATION. WITH THE 




3996 






j NON-EXECUTABLE 


FUNCTION CNE ) ERROR BIT SET. 




3997 






i 












3998 






J 












3999 






i 












4000 






; - 












4001 023704 








BGNSU6 






j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


023704 














Tl.l: 




023704 


104402 












TRAP 


C$BSUB 


4002 023706 


004737 


032140 




JSR 


PC.T29REST 




{SET COMMAND PACKET 




4003 023712 


004737 


032232 




JSR 


PC.T29RT2 




,SET UP OTHER COMMAND PACKET 




4004 023716 


004737 


032274 




JSR 


PC.T29RT3 




;SET UP OTHER COMMAND PACKET 




4005 023722 


012737 


023420 026550 


MOV 


$10000. , T29DLY 




} SET UP DELAY ROUTINE 




4006 023730 


004737 


016650 


10$: 


JSR 


PCSOFINIT 




{DO INITIALIZE ON CONTROLLER 




4007 023734 


103426 






BCS 


20$ 




i BR IF INIT WAS OK 




4008 023736 








DELAY 


250 




j DELAY ABOUT .25 SECONDS 




023736 


012727 


000250 










MOV 


0250. (PC)* 


023742 


000000 












.WORD 





023744 


013727 


002116 










MOV 


L$DLY,(PO* 


023750 


000000 












.WORD 





023752 


005367 


177772 










DEC 


-6CPC) 


023756 


001375 












BNE 


.-4 


023760 


005367 


177756 










DEC 


-22CPC) 


023764 


00136 7 












BNE 


.-20 


4009 023766 


005337 


026550 




DEC 


T290LY 




,BUMP DELAY ROUTINE DOWN 




4010 023772 


001356 






BNE 


10$ 




j BR. IF MORE OELAY TIME LEFT 




4011 023774 


004737 


020106 




JSR 


PC.FATCHK 




:INC ANO CHECK FOR MORE THAN 25 


ERRORS 


4015 024000 


010001 






MOV 


R0.R1 




t CONTENTS OF TSSR REGISTER 




4016 024002 








ERRDF 


ERRNO.SFIERR, SFIMSG 


{FATAL ERROR TSSR WAS NOT OK 




024002 


104455 












TRAP 


C$ERDF 


024004 


000145 












.WORD 


101 


024006 


003554 












.WORD 


SFIERR 


024010 


011666 












.WORD 


SFIMSG 


4017 024012 






20$: 












4018 


















4019 024012 


012704 


026360 




MOV 


0T29PACKET.R4 




{SUBROUTINE NEEDS PACKET ADDRESS 


4020 024016 


0O4737 


010332 




JSR 


PCWRTCHR 




{ISSUE WRITE CHARACTERISTICS 




4021 024022 


103407 






BCS 


25$ 




j BR, IF COMMAND ISSUED OK 




4022 024024 


0O4737 


020106 




JSR 


PC.FATCHK 




jINC ANO CHECK FOR MORE THAN 25 


ERRORS 


4026 024030 


010001 






MOV 


R0.R1 




(SAVE CONTENTS OF TSSR 




4027 024032 








ERRHRD 


ERRNO.WRTMSG, SFIMSG 


{WRITE CHARACTERISTIC FAILED 




024032 


1C4456 












TRAP 


C$ERHRD 


024034 


000146 












.WORD 


102 


024036 


004 760 












.WORD 


WRTMSG 


024040 


011666 












.WORD 


SFIMSG 


4028 024042 






25$ J 


CKLOOP 






{LOOP IF SELECTED 




024042 


104406 












TRAP 


C$CLPl 


4029 024044 


016501 


oooooo 




MOV 


TSSR(R5),Ri 




,GET THE TSSR 




4030 0240^0 


010102 






MOV 


R1.R2 




{SET UP EXPECTED 




4031 02-;052 


042702 


000100 




BIC 


♦0FL.R2 




{OFF LINE SHOULD NOT QE SET 




4032 024056 


0?0102 






CMP 


R1.R2 




iTHEY SHOULD BE EQUAL 




4033 024060 


001406 






BEQ 


26$ 




{BR* IF Ol-L IS NOT SET 
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4057 



4038 
4039 
4040 
4041 
4042 
4043 
4044 
4048 



4049 

4050 
4051 
4052 
4053 
4054 
4055 
4059 



4060 

4061 
4062 
4063 
4064 
4065 
4066 
4067 
4068 
4069 
4070 
4074 



4075 

4076 
4077 
4078 
4079 
4080 
4081 
4085 



024062 

024062 

024064 

024066 

024070 

024072 

024076 

024102 

024106 

024112 

024114 

024116 

024122 

024122 

024124 

024126 

024130 

024132 

024132 

024134 

024140 

024142 

024146 

024150 

024152 

024156 

024156 

024160 

024162 

024164 

024166 

024166 

024170 

024176 

024204 

024210 

024214 

024220 

024224 

024230 

024232 

024234 

024240 

024240 

024242 

024244 

024246 

024250 

024250 

024252 

024256 

024260 

024264 

024266 

024270 

024274 

024274 



020160 
010434 
000000 
000200 



020106 



104455 
000147 
026552 
016350 
0O4737 
0O4737 
016501 
012702 
103407 
O10OO4 
004737 

104456 
000150 
030270 
011700 



104406 

013701 026406 

010102 

052702 000002 

020102 

001406 

004737 020106 

104456 
0O0151 
027761 
016350 



104406 
013737 
012737 
012704 
010465 
004737 
C16501 
012702 
020102 
001406 
004737 

104456 
000152 
027632 

011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 



003076 
141011 
026510 
177776 
017124 
OOOOOO 
100206 



020106 



026406 
002000 



020106 



26* 



JSR 


PC.CKDROP 


JSR 


PC, REWIND 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


BCS 


30$ 


MOV 


R0,R4 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T29RWN, PKTSSR 



30*: 



CKLOOP 



MOV 


T29BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC,FATCHK 


ERRHRD 


ERRN0.T29BOT, EXPREC 



40*: 



CKLOOP 



026512 
026510 



MOV 


FREE,T29RB 


MOV 


♦141011. T29PK3 


MOV 


*T29PK3,R4 


MOV 


R4,TS0B(R5) 


JSR 


PC,UAITF 


MOV 


TSSR(R5),R1 


MOV 


0S5R!SC!BIT1JBIT2,R2 


CMP 


R1.R2 


BEQ 


75$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T29WDE, PKTSSR 



SEQ 116 



ERRDF ERRN0.T29QFL, EXPREC i DRIVE IS OFF LINE 



75* J 



CKLOOP 



MOV 


T29BFR.6.R1 


MOV 


R1.R2 


BIS 


♦BIT10.R2 


CMP 


R1.R2 


BEQ 


170* 


JSR 


PC.FATCHK 


ERRHRD 


ERRNQ.T29NEF, EXPREC 



TRAP 

.WORD 
.WORD 
.WORD 



j TRY AND DROP DRIVE 

l CALL TAPE REWIND COMMAND 

iGET TSSR 

j SET UP EXPECTED TSSR 

I BR, IF NO PROBLEM 

{PACKET ADDRESS SET UP 

I INC ANO CHECK FOR MORE THAN 25 

j REWIND NOT ACCEPTED 



C*ERDF 
103 

T290FL 
EXPREC 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 



ERRORS 

C*ERHRD 
104 

T29RWN 
PKTSSR 



TRAP C*CLP1 



} PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

j DOES EXP - REC'D 

j BR. IF EQUAL (OK) 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER 



{LOOP IF SELECTED 



REWINO 
TRAP 
.WORD 
.WORD 
.WORD 



C*ERHRD 
105 

T29B0T 
EXPREC 



TRAP C*CLP1 

{ADDRESS OF READ BUFFER 

{WRITE TAPE MARK RETRY ,CVC- l.ACK COMMANO 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

iWAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

{SET UP EXPECTED 

;ARE THEY EQUAL 

{BR, IF OK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{TSSR INCORRECT AFTER READ DATA 

TRAP C*ERHRD 
.WORD 106 
.WORD T29WDE 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C9CLP1 

{GET XSTO STATUS WORD 

{SET UP EXPECTED 

{SET THE NEF BIT 

{ARE TKEY EQUAL 

{BR, IF EQUAL (GOOD) 

tlNC AND CHECK 'OR MORE THAN 25 ERRORS 

iNEF SHOULD BE SET 

TRAP C*£RHRD 



N9 



CZTKHA TK-25 FRT END FUNC 44 
TEST 1; WRITE TAPE MARK RETRY 
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024276 
024300 
024302 

4086 024304 

4087 024304 

4088 024306 

4089 024310 
024310 
024310 



000153 
026700 
016350 

005103 
001273 



104403 



170$ J 



COM 
BNE 
ENDSUB 



R3 
26$ 



SEQ 117 



.WORD 107 
.WORD T29NEF 
.WORD EXPREC 



{RESET THE SWITCH 

j BR, IF FIRST TIME THROUGH HERE 



L10037; 



TRAP 



C$ESU6 



C/TKHA TK-25 FRT ENO TUNC #4 
TEST I: WRITE TAPE MARK RETRY 
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SEQ 118 



4091 








4092 








4093 








4094 








4095 








4096 








4097 








4098 








4099 








4100 








4101 








4102 








4103 


024312 
024512 








024312 


104402 




4104 


024314 


00473^ 


052140 


4105 


024320 


004737 


052232 


4106 


024324 


004737 


052274 


4107 


024330 


004737 


016650 


4108 


024354 


105407 




4109 


024356 


004737 


020106 


4113 


024542 


01OO01 




4114 


024544 








024544 


104455 






024546 


000154 






024350 


003554 






024352 


011666 




4115 


024354 






4116 








4117 


024354 


012704 


026560 


4118 


024360 


004737 


010332 


4119 


024564 


105407 




4120 


024566 


004737 


020106 


4124 


024372 


010001 




4125 


024374 








024374 


104456 






024376 


000155 






024400 


0O4 760 






024402 


011666 




4126 


024404 








024404 


104406 




4127 


024406 


0O4737 


010454 


4128 


024412 


016501 


OOOOOO 


4129 


024416 


012702 


000200 


4130 


024422 


105407 




4131 


024424 


010004 




4132 


024426 


004757 


020106 


4136 


024452 








024452 


104456 






024454 


000156 






024436 


050270 






024440 


011700 




4137 


024442 








024442 


104406 




4138 


024444 


013701 


026406 


4159 


024450 


010102 




4140 


024452 


052702 


000002 



1, SUBTEST 2 



Itest 

j VERIFIES THAT A WRITE TAPE MARK RETRY COMMAND ISSUED WHILE THE 
iIS POSITIONED BEFORE THE FIRST RECORD ON TAPE (BUT NOT AT BOT) 
i TAPE STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT (RIB) 
iSET, 



| >>>>>> N >>>> > 



TAPE 

RESULTS IN 
STATUS BIT 



1 
1 
1 
1 - 


BGNSUB 






.'GP 


PC.T29RLST 




JSR 


PC.T29RT2 




JSR 


PC.T29RT3 




JSR 


PC.SOFINIT 




BCS 


20 1 




JSR 


PC.FATCHK 




MOV 


R0.R1 




ERRDF 


ERRNO.SFIERR, SFIMSG 



>>>>>>>>>>>> 



201; 



MOV 


♦T29PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


25$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRHRD 


ERRNO.WRTMSG. SFIMSG 



25$ : 
26$ i 



30$! 



CKLOOP 

JSR 
MOV 
MOV 
BCS 
MOV 
JSR 
ERRHRD 



CKLOOP 

HOV 
HOV 
BIS 



PC, REWIND 

TSSR(R5).R1 

♦S5R.R2 

30$ 

R0.R4 

PC.FATCh* 

ERRN0.T29RWN.PKTS5R 



f29BFR»6 f Rl 

R1.R2 

ttIU«R£ 



BEGIN SUBTEST 
T1.2: 

THAP C$BSU8 

l SET COMMANO PACKET 

I SET UP OTHER COMMAND PACKET 

» SET UP OTHER C» *1AND PACKET 

iDO INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

^CONTENTS OF TSSR REGISTER 

, FATAL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
.WORD 108 
.WORD SFIERR 
.WORD SFIMSG 



i SUBROUTINE NEEDS PACKET AOORESS 

, ISSUE WRITE CHARACTERISTICS 

I BR. IF COMMAND ISSUED OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iSAVE CONTENTS OF TSSR 

I WRITE CHARACTERISTIC 



jLOOP IF SELECTED 



»CALL TAPE REWIND 
iGET TSSR 

iSET UP EXPECTED TSSR 
I BR. IF NO PROBLEM 
iPACKET AOORESS SET UP 
I INC AND CHECK FOR MORE 
, REWIND NOT ACCEPTED 



FAILED 
TRAP 

.WORJ 
.WORD 
.WORD 



TRAP 
COWANO 



C$ERHRD 
109 

WRTMSG 
SFIMSG 

C$CLP1 



THAN 25 ERRORS 



TRAP 


C$ERHRD 


.WORD 


110 


,WOR0 


T29RWN 


.WORD 


PKTSSR 


jl.OOP IF SELECTED 




TRAP 


C*CLPi 


iPICK LP XSTO 




iSET IP EXPECTED, 




* SET BOT BXT IN EXPECTED 





CIO 
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4141 
4142 
4143 
4147 



4148 
4149 
4150 
4151 
4152 
4153 
4154 
4155 
4156 
4157 
4156 
4162 
4163 
4164 
4165 



024456 
024460 
024462 
024466 
024466 
024470 
024472 
024474 
024476 
024504 
024512 
024520 
024524 
024530 
024554 
024540 
024544 
024546 
024550 



020102 
001406 
004737 

104456 
000157 
027761 
016350 
012737 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



024554 

024554 

024556 

024560 

024562 
4166 024564 

024564 

024566 

024574 
UP SPACE REVERSE 

4169 024602 012704 

024600 

024612 

024616 

024622 

024626 

024630 

024632 

024636 

024636 

024640 

024642 

024644 

4181 024646 
024646 

4182 024650 

4163 024656 

4164 024664 
4185 024670 
4166 024674 

4187 024700 

4188 024704 

4189 024710 

4190 024712 

4191 024714 
4195 024720 



4167 
4166 



4170 
4171 
4172 
4173 
4174 
4175 
4176 
4180 



104457 
000160 
027714 
011700 

104406 
012737 
012737 



010465 

004737 
016501 
012702 
020102 
001406 
004737 

104456 
000161 
027632 
011^00 

104406 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



IC *4 
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RETRY 






CMP 
BEQ 


R1.R2 

401 


020106 






JSR 
ERRHRO 


PC.FATCHK 
ERRN0,T29B0T,EXPREC 


000001 


026512 


401 j 


MOV 


♦1.T29RB 


00O400 


026516 




MOV 


♦256..T29SZ 


140005 


026510 




MOV 


♦140005, T29PK3 


026510 






MOV 


♦T29PK3.R4 


177776 






MOV 


R4,TSD6(R5) 


017124 






JSR 


PC.WAITF 


OOOOOO 






MOV 


TSSR(R5),R1 


000200 






MOV 
CMP 
BEQ 


♦SSR.R2 

R1.R2 

751 


020106 






JSR 


PC,FATCHK 



SEQ 119 



ERRSOFT ERRN0.T29WRT, PKTSSR 



iDOES EXP - REC'D 

|BR, IF EQUAL COK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

jTAPE NOT AT BOT AFTER REWIND 

TRAP CIERHRD 

.WORD 111 
.WORD T2960T 
WORD EXPREC 

I NUMBER OF RECORDS TO SPACE OVER 

i SET UP RECORD SIZE 

IWRITE FORWARO.CVC-l.ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMAND 

iWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

|BR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

i SOFT ERROR, DON'T CARE ABOUT WRITE 

I COMMAS' S RESULTS - CHECKING WRITE 

I TAPE MARK COMMAND 

j TSSR INCORRECT AFTER WRITE DATA 



751: 



00OO01 026512 
140410 026510 

026510 
177776 
017124 
OOOOOO 
000200 



020106 







TRAP CIERSOFT 






.WORO 112 






.WORD T29URT 






.WORD PKTSSR 


CKLOOP 




lLOOP IF SELECTED 

TRAP CICLP1 


MOV 


♦1.T29R8 


t NUMBER OF RECORDS TO SPACE OVER 


MOV 


♦140410, T29PK3 


i SET UP COMMAND IN APCKET 


MOV 


♦T29PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 


MOV 


R4,TSD6(R5) 


1 ISSUE COMMAND 


JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 


MOV 


TSSR(R5),R> 


iGET TSSR CONTENTS 


MOV 


♦SSR.R2 


iSET UP EXPECTED 


CMP 


R1.R2 


lARE THEY EQUAL 


BEQ 


175$ 


iBR. IF OK 


oSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 ERRORS 


ERRHRD 


ERRN0.T29W0E, PKTSSR 


l TSSR INCORRECT AFTER READ DATA 



iSET 



003076 026512 

141011 026510 

026510 

177776 

017124 

OOOOOO 

100204 



020106 



175*t CKLOOP 

MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



FREE.T29RB 

♦141011, T29PK3 

♦T29PK3.R4 

R4.TSD6CR5) 

PC.WAITF 

TSSR(R5),R1 

♦Sf,RJ5C!BIT2,R2 

R1.R2 

1601 

PC.FATCHK 

ERRNQ,T29WDE, PKTSSR 



TRAP CIERHRD 

.WORD 113 
.WORD T29W0E 
.WORD PKTSSR 

j LOOP If SELECTED 

TRAP CICLP1 

I ADDRESS OF BUFFER 

iWRITE TAPE MARK RETRY ,ACK ,CVC- 1 COMO, 

I SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

»GET TSSR CONTENTS 

j SET UP EXPECTED 

tARE THEY EQUAL 

iBR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER READ DATA 



D10 
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024 720 


104456 






024722 


000162 






024724 


027632 






024726 


011700 




4196 


024730 








024730 


104406 




4197 


024732 


013701 


026414 


4198 


024736 


010102 




4199 


024710 


052702 


0OOOO1 


4200 


024 7 44 


020102 




4201 


024746 


001406 




4202 


024750 


004737 


020106 


4206 


024754 








024754 


104456 






024756 


000163 






024760 


031716 






024762 


016350 




4207 


024 764 






4208 


024 764 
024 764 








024764 


104403 





180$ t CKLOOP 



MOV 


T29BFRU4.R1 


MOV 


R1.R2 


BIS 


♦6IT0.R2 


CMP 


R1.R2 


BEQ 


1901 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T29RIB,EXPREC 



190*; 



ENOSUB 



i LOOP IF SELECTED 

jGET XST3 STATUS WORD 

,SET UP EXPECTED 

i SET THE RIB BIT 

,ARE THEY EQUAL 

j BR, IF EQUAL (GOOD) 

I INC ANO CHECK FOR MORE 

iNEF SHOULD BE SET 



SEQ 120 



TRAP 
.WORD 
.WORD 
,UO«D 

TRAP 



CIERHRD 
114 

T29WDE 
PKTSSR 

CICLPl 



THAN 25 ERRORS 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
115 

T29RIB 
EXPREC 



!>>>>>>>>>>>> END SUBTEST >>>>>>>>>>>> 

L 10040: 

TRAP CSESUB 



E10 
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SEQ 121 



4210 






\ ♦ 










4211 






I 










4212 






I TEST 


1. SUBTEST 3 






4213 






1 










4214 






{VERIFIES THAT 


A WRITE TAPE MARK RETRY 


COMMAND TERMINATES 




4215 






iPROPERLY ANO WRITES THE TAPE MARK ONTO TAPE CBY ISSUING A READ REVERSE 




4216 
4217 
4218 






; COMMAND AND CHECKING FOR TAPE STATUS 


ALERT TERMINATION AND TMK-1). 








l 










4219 024766 








BGNSU6 




j >>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 


024766 












T1.3: 




024766 


104402 










TRAP 


C$BSUB 


4220 024770 


004737 


032140 




JSR 


PC.T29REST 


,SET COMMANO PACKET 




4221 024774 


004737 


032232 




JSR 


PC.T29RT2 


»SET UP OTHER COMMANO PACKET 




4222 025000 


0O4737 


032274 




JSR 


PC.T29RT3 


iSET UP OTHER COMMANO PACKET 




4223 025004 


012737 


023420 026550 


MOV 


#10000., T29DLY 


,SET UP DELAY ROUTINE 




4224 025012 


004737 


016650 


10*; 


JSR 


PC.SOFINIT 


t DO INITIALIZE ON CONTROLLER 




4225 025016 


103426 






BCS 


20$ 


j BR IF INIT WAS OK 




4226 025020 








DELAY 


250 


j DELAY ABOUT ,25 SECONDS 




025020 


012727 


000250 








MOV 


♦250. (PC)* 


025024 


000000 










.WORD 





025026 


013727 


002116 








MOV 


L IDLY, (PC)* 


025032 


000000 










.WORD 





025034 


005367 


177772 








DEC 


-6CPC) 


025040 


001375 










BNE 


.-4 


025042 


005367 


177756 








DEC 


-22CPC) 


025046 


001367 










BNE 


.-20 


4227 025050 


0O5337 


026550 




DEC 


T290LY 


iBUMP DELAY ROUTINE DOWN 




4228 025054 


001356 






BNE 


10$ 


,BR, IF MORE DELAY TIME LEFT 




4229 025056 


004737 


020106 




JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE THAN 25 


ERRORS 


4233 025062 


010001 






MOV 


R0.R1 


, CONTENTS OF TSSR REGISTER 




4234 025064 








ERRDF 


ERRNO.SFIERR.SFIMSG 


j FATAL ERROR TSSR WAS NOT OK 




025064 


104455 










TRAP 


C$ERDF 


025066 


000164 










.WORD 


116 


025070 


003554 










.WORD 


SFIERR 


025072 


011666 










.WORD 


SFIMSG 


4235 025074 






20$: 










4236 025074 


012704 


026360 




MOV 


♦T29PACKET.R4 


i SUBROUTINE NEEDS PACKET ADORESS 


4237 025100 


004737 


010332 




JSR 


PC.WRTCHR 


j ISSUE WRITE CHARACTERISTICS 




4238 025104 


103407 






BCS 


23$ 


,BR, IF COMMANO ISSUED OK 




4239 025106 


004737 


020106 




JSR 


PC.FATCMK 


j INC AND CHECK FOR MORE THAN 25 


ERRORS 


4243 025112 


010001 






MOV 


R0.R1 


iSAVE CONTENTS OF TSSR 




4244 025114 








ERRHRD 


ERRNO.WRTMSG, SFIMSG 


l WRITE CHARACTERISTIC FAILED 




025114 


104456 










TRAP 


C$ERHRD 


025116 


000165 










.WORD 


117 


025120 


004760 










.WORD 


WRTMSG 


025122 


011666 










,WORD 


SFIMSG 


4245 025124 






23$: 


CKLOOP 




jLOOP IF SELECTED 




025124 


104406 










TRAP 


C$CLP1 


4246 025126 


004737 


010434 




JSR 


PC, REWIND 


iCALL TAPE REWIND COMMAND 




4247 025132 


103411 






BCS 


30$ 


|BR, IF NO PROBLEM 




4248 025134 


016501 


OOOOOO 




MOV 


TSSP(R5),R1 


iGET TSSR 




4249 025140 


010004 






MOV 


R0.R4 


,SAVE PACKET ADDRESS 




4250 025142 


004737 


020106 




JSR 


PC.FATCHK 


t INC ANO CHECK FOR MORE THAN 25 


ERRORS 


4254 025146 








ERRHRD 


ERRN0.T29RWN.PKTSSR 


jREWINO NOT ACCEPTED 




025146 


104456 










TRAD 


CfERHRD 


025150 


000166 










.WORD 


118 



F10 
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025152 


030270 




025154 


011700 




4255 025156 






025156 


104406 




4256 025160 


013701 


026406 


4257 025164 


010102 




4258 025166 


052702 


000002 


4259 025172 


020102 




4260 025174 


001406 




4261 025176 


004737 


020106 


4265 025202 






025202 


104456 




025204 


000167 




025206 


027761 




025210 


016350 




4266 025212 






025212 


104406 




4267 025214 


012737 


140011 026510 


4268 025222 


012704 


026510 


4269 025226 


010465 


177776 


4270 025232 


004737 


017124 


4271 025256 


016501 


000000 


4272 025242 


012702 


000200 


4273 025246 


020102 




4274 025250 


001406 




4275 025252 


004737 


020106 


4279 025256 






025256 


104456 




025260 


000170 




025262 


030607 




025264 


011700 




4280 025266 






025266 


104406 




4281 025270 


012703 


000001 


4282 025274 


012737 


141011 026510 


4283 025302 


012704 


026510 


4284 025306 


010465 


177776 


4285 025312 


004737 


017124 


4286 025316 


016501 


OOOOOO 


4287 025322 


012702 


000200 


4288 025326 


020102 




4C89 025330 


001406 




4290 025332 


004737 


020106 


4294 025336 






025336 


104456 




025340 


000171 




025342 


030607 




025344 


011700 




4295 025546 






025346 


104406 




4296 025350 


012737 


140401 026510 


4297 025356 


013737 


005076 026512 


4298 025364 


012704 


026510 


4299 025370 


010465 


177776 


4300 025374 


004737 


017124 


4301 025400 


016501 


OOOOOO 


4302 025404 


012702 


100204 



30$ 



CKLOOP 



MOV 


T296FR-6.R1 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 


ERRHPD 


ERRN0.T29B0T.EXPREC 



40$; 



CKLOOP 



MOV 


♦140011, T29PK3 


MOV 


♦T29PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


70$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T29WDC, PKTSSR 



70$: 
150$: 



155$: 



CKLOOP 



MOV 


•1..R3 


MOV 


♦141011, T29PK3 


MOV 


*T29PK3,R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


165$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T29WDC. PKTSSR 



165$: CKLOOP 



MOV 


♦140401 , T29PK3 


MOV 


FREE.T29RB 


MOV 


♦T29PK3.R4 


MOV 


R4,TSD8(R5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


*SSR!SC!BITa,R2 



SEQ 122 



.WORD T29RWN 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP C$CLP1 

»PICK UP XSTO 

»SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

|BR, IF EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

iTAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHPD 
.WORD 119 
.WORD T29B0T 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C$CLP1 

j WRITE TAPE MARK.ACK.CVC-1 COMMAND 

»SET UP R4 WITH PACKET ADDRESS 

i ISSUE COMMAND 

iWAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

I SET UP EXPECTED 

j ARE THEY EQUAL 

j BR. IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER WRITE TAPE MARK 

TRAP C$ERHRD 
. WORD 120 
.WORD T29W0C 
.WORD PKTSSR 

j LOOP IF SELECTED 

TRAP C$CLP1 

» NUMBER OF RECORDS TO WRITE TM 

I WRITE TAPE MARK RETRY ,ACK,CVC«1 COMMANO 

,SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

l WAIT FOR SSR TO SET 

I PICK UP TSSR 

I SET UP EXPECTED (SSR ONLY) 

j WAS STATUS GOOO 

i BR, IF TERMINATION WAS GOOO 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j TSSR NOT CORRECT AFTER WRT TAPE M. 



TRAP 


C$ERHRD 


.WORD 


121 


.WORD 


T29WDC 


.WORD 


PKTSSR 



lLOOP IF SELECTED 

TRAP 
I READ REVERSE, ACK, COMMANO 
1 NUMBER OF RECORDS TO SPACE BACK 
,SET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMANO 
iWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
l SET UP EXPECTED 



C$CLP1 



G10 
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4303 
4304 
4305 
4309 



4310 

4311 

4312 
4313 
4314 
4315 
4316 
4320 



4321 
4322 



025410 
025412 
025414 
025420 
025420 
025422 
025424 
025426 
025430 
025430 
025432 
025436 
025440 
025444 
025446 
025450 
025454 
025454 
025456 
025460 
025462 
025464 
025464 
025466 
025466 
025466 



020102 
001406 
004737 020106 

104456 
000172 
031553 
011700 

104406 

013701 026406 

010102 

052702 100000 

020102 

001406 

004737 020106 

104456 
000173 

032016 
016350 

104406 



104403 



CMP 
BEQ 
JSR 
ERRHRD 



222*: CKLOOP 



226$: 



CKLOOP 
ENOSUB 



R1.R2 

2221 

PC FATCHK 

ERRN0.T29RDG.PKTSSR 



SEQ 123 



j ARE THEY EQUAL 
tBR, IF OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 
iTSSR INCORRECT AFTER SPACE CMO. 

TRAP 



I LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
122 

T29RDG 
PKTSSR 

C»CLP1 



MOV 


T29BFR*6,R1 


jPIO 


MOV 


R1.R2 


jSET 


BIS 


*eiU5,R2 


jTMK 


CMP 


R1.R2 


|IS 


BEQ 


226$ 


»BR, 


JSR 


PC, FATCHK 


j INC 


ERRHRD 


ERRN0.T29RRN.EXPREC 


jTMK 



K UP XSTO 
UP EXPECTED 
SHOULD BE SET 
TMK SET 
IF TMK WAS SET CGOOO) 
AND CHECK FOR MORE THAN 25 ERRORS 
NOT SET AFTER READ REV 

TRAP CIERHRD 
.WORD 123 
.WORD T29RRN 
.WORD EXPREC 
jLOOP IF SELECTED 

TRAP C1CLP1 
!<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 

L 10041: 

TRAP C*ESUB 



-no 
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SEQ 124 



4524 






4325 






4326 






4327 






4328 






4329 






4330 






4331 






4332 






4333 






4334 






4335 025470 






025470 






025470 


104402 




4336 025472 


004737 


032140 


4337 025476 


004737 


032232 


4338 025502 


004737 


032274 


4339 025506 


012737 


023420 026550 


4340 025514 


004737 


016650 


4341 025520 


103426 




4342 025522 






025522 


012727 


000250 


025526 


oooooo 




025530 


013727 


002116 


025534 


oooooo 




025536 


005567 


177772 


025542 


001375 




025544 


005367 


177756 


025550 


001367 




4343 025552 


005337 


026550 


4344 025556 


001356 




4345 025560 


004737 


020106 


4349 025564 


010001 




4350 025566 






025566 


104455 




025570 


000174 




025572 


003554 




025574 


011666 




4351 025576 






4352 025576 


012704 


026360 


4353 025602 


004737 


010332 


4354 025606 


103407 




4355 025610 


0O4737 


020106 


4359 025614 


010001 




4360 025616 






025616 


104456 




025620 


0O0175 




025622 


004760 




025624 


011666 




4361 025626 






025626 


104406 




4362 025630 


0O4737 


010434 


4363 025654 


103411 




4364 025636 


016501 


OOOOOO 


4365 025642 


010004 




4 366 025644 


004 737 


020106 


4370 025650 







I ♦ 

{TEST 1, SUBTEST 4 

i VERIFIES THAT THE SPACE -REVERSE PORTION OF THE WRITE TAPE MARK 

, RETRY OPERATION IS PERFORMED BY REWINOING THE TAPE, ISSUING SEVERAL 

l WRITE TAPE MARK RETRY COMMANDS IN SUCCESSION, THEN ISSUING TWO SPACE 

i RECORDS REVERSE COMMANOS IN SUCCESSION, THE SECOND SPACE RECORDS REVERSE 

jCOMMANO SHOULD TERMINATE WITH REVERSE INTO BOT (RIB) STATUS SET. 



BGNSUB 



j >> >>>>>>>>>> 



BEGIN SUBTEST 
T1.4: 



>>>>>>>>>>>> 



TRAP C$BSU8 



10$ 



JSR 


PC.T29REST 


JSR 


PC,T29fiT2 


JSR 


PCT29RT3 


MOV 


*10000, .T29DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T290LY 


BNE 


10$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



j SET COMMAND PACKET 

j SET UP OTHER COMMANO PACKET 

j SET UP OTHER COMMANO PACKET 

i SET UP DELAY ROUTINE 

i DO INITIALIZE ON CONTROLLER 

tBR IF INIT WAS OK 

j DELAY ABOUT .25 SECONOS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
jBUMP DELAY ROUTINE DOWN 
iBR, IF MORE DELAY TIME LEFT 
i INC AND CHECK FOR MORE THAN 25 
j CONTENTS OF TSSR REGISTER 
j FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



0250, (PC)* 



L$DLY,(PC)f 



-6CPC) 

.-4 

-22CPC) 

.-20 



ERRORS 



C$ERDF 
124 

SFIERR 
SFIMSG 



20$ 



MOV *T29PACKET,R4 

JSR PC.WRTCHR 

BCS 23$ 

JSR PC.FATCHK 



i SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

I INC ArO CHECK FOR MORE THAN 25 ERRORS 



23$ 



MOV 


R0.R1 




iSAVE CONTENTS OF TSSR 




ERRHRD 


ERRNO. WRTMSG, 


, SFIMSG 


jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERHR0 
125 

WRTMSG 
SFIMSG 


CKLOOP 






i LOOP IF SELECTED 

TRAP 


C$CLP1 


JSR 


PC. REWIND 




iCALL TAPE REWIND COMMAND 




BCS 


30$ 




,BR, IF NO PROBLEM 




MOV 


TSSR(R5),R1 




jGET TSSR 




MOV 


R0.R4 




j SAVE PACKET ADDRESS 




JSR 


PC.FATCHK 




j INC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO. T29RWN, 


.PKTSSR 


iREUINO NOT ACCEPTED 





110 



CZTKHA TK-2!> KRi END FUNC *4 
TEST It WRITE TAPE MARK RETRY 
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025650 


104456 




025652 


000176 




025654 


030270 




025656 


011700 




4371 025660 






025660 


104406 




4372 025662 


013701 


026406 


4373 025666 


010102 




4374 025670 


052702 


000002 


4375 025674 


020102 




4376 025676 


001406 




4377 025700 


004737 


020106 


4381 025704 






025704 


104456 




025706 


000177 




025710 


027761 




025712 


016350 




4382 025714 






025714 


104406 




4383 025716 


012737 


140011 026510 


4354 025724 


012704 


026510 


4385 025730 


010465 


177776 


4386 025734 


004737 


017124 


4387 025740 


016501 


000000 


4388 025744 


012702 


000200 


4389 025750 


020102 




4390 025752 


001406 




4391 025754 


004737 


020106 


4395 025760 






025760 


104456 




025762 


000200 




025764 


030607 




025766 


011700 




4396 025770 






025770 


104406 




4397 025772 


012703 


000012 


4398 025776 


012737 


000001 026512 


4399 026004 


012737 


141011 026510 


4400 026012 


012704 


026510 


4401 026016 


010465 


177776 


4402 026022 


004737 


017124 


4403 026026 


016501 


000000 


4404 026032 


012702 


000200 


4405 026036 


020102 




4406 026040 


001406 




4407 026042 


004737 


020106 


4411 026046 






026046 


104456 




026050 


000201 




026052 


030607 




0260S4 


011700 




4412 026056 






026056 


104406 




4413 026060 


005303 




4414 026062 


001355 




4415 026064 


012737 


140410 026510 


4416 026072 


012737 


000001 026512 



30$ 



CKLOOP 



MOV 


T296FR*6,R1 


MOV 


R1.R2 


RIS 


♦BIT1.R2 


CMP 


R1.R2 


I1EQ 


40$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRNU,T29B0T,EXPREC 



40*: 



70$ t 
150$: 



155$; 



CKLOOP 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRO 



CKLOOP 



165$: CKLOOP 



♦140011. T29PK3 

♦T29PK3.R4 

R4 # TSD6(R5) 

PC.UAITF 

TSSR(R5),R1 

♦SSR.R2 

R1.R2 

70$ 

PC.FATCHK 

ERRN0.T29WDC, PKTSSR 



MOV 


♦10., R3 


MOV 


♦1.T29RB 


MOV 


♦141011. T29PK3 


MOV 


♦T29PK3.R4 


MOV 


R4.TSD8CR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


165$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T29WDC.PKTSSR 



DEC 


R3 


BNE 


155$ 


MOV 


0140410, T29PK3 


MOV 


♦1.T29RB 



SEQ 125 



TRAP C$ERHRD 
.WORD 126 
.WORD T29RWN 
.WORD PKTSSR 

,LOOP IF SELECTED 

TRAP C$CLP1 

jPICK UP XSTO 

j SET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

;BR, IF EQUAL COK) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

»TAPE NOT AT BOT AFTER REWINO 

TRAP C$ERHRD 
.WORD 127 
.WORD T29B0T 
.WORD EXPREC 

»LOOP IF SELECTED 

TRAP C$CLP1 

»WRITE TAPE MARK.ACK.CVC-1 COMMAND 

jSET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

i WAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

j SET UP EXPECTED 

jARE TMCY EQUAL 

jBR, IF OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

;TSSR INCORRECT AFTER WRITE TAPE MARK 

TRAP C$ERHRD 
.WORD 128 
. WORD T29W0C 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 

» NUMBER OF RECORDS TO WRITE TM 

,SET UP PACKET 

t WRITE TAPE MARK RETRY ,ACK .CVC-1 COMMAND 

i SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMAND 

i WAIT FOR SSR TO SET 

i PICK UP TSSR 

jSET UP EXPECTED (SSR ONLY) 

I WAS STATUS GOOO 

j BR. IF TERMINATION WAS GOOO 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

jTSSR NOT CORRECT AFTER WRT TAPE M. 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



i LOOP IF SELECTED 

iBUMP COUNTER DOWN 
,BR. IF LESS THAN 10 TAPE MARKS 
t SPACE REVERSE, ACK, CVC-1. COMMAND 
I NUMBER OF RECORDS TO SPACE BACK 



C$ERHRD 
129 

T29WDC 
PKTSSR 

CSCL.P1 



CZTKHA TK-25 FRT ENO FUNC *4 
TEST I: WRITE TAPE MARK RETRY 
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SEQ 126 



4417 
4418 
4419 
4420 
4421 
4422 
4423 
4424 
4428 



4429 

4430 
4431 
4*32 
4433 
4434 
4435 
4436 
4437 
4438 
4439 
4440 



4441 
4442 
4443 
4447 



4448 

4449 
4450 
4451 
4452 
4453 
4454 
4458 



4459 



026100 

026104 

026110 

026114 

026120 

026124 

026126 

026130 

026134 

026134 

026136 

026140 

026142 

026144 

026144 

026146 

026154 

026162 

026166 

026172 

026200 

026204 

026210 

026214 

026216 

026220 

026220 

026224 

026226 

026232 

026234 

026240 

026242 

026246 

026250 

026254 

026256 

026262 

026262 

026264 

026266 

026270 

026272 

026272 

026274 

026300 

026302 

026306 

026310 

026312 

026316 

026316 

026320 

026322 

026324 

026326 

026326 



012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000202 
027632 
011700 

104406 
012737 
012737 
012704 
010465 
012737 
004737 
016501 
012702 
020102 
001425 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001351 
004737 

104456 
000203 
031634 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000204 
031716 
016350 

104406 



026510 
177776 
017124 
000000 
100204 



020106 



100410 
000005 
026510 
177776 
000310 
017124 
000000 
100204 



000250 
002116 
177772 
177756 
026550 
020106 



026414 
000001 

020106 



222$ 



MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



0T29PK3.R4 

R4 t TSDBCR5) 

PC.WAITF 

TSSRCR5),R1 

♦SSR!SC!BIT2.R2 

R1.R2 

222$ 

PC FATCHK 

ERRN0.T29WDE, PKTSSR 



026510 
026512 



026550 



230$ 



MOV 


♦100410, T29PK3 


MOV 


*5,T29R8 


MOV 


♦T29PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


♦200..T290LY 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSRJSCJBIT2.R2 


CMP 


R1.R2 


BEQ 


260$ 


DELAY 


250 



DEC 


T290LY 


BNE 


230$ 


JSR 


PC, FATCHK 


ERRHRD 


ERRN0.T29SDG, PKTSSR 



260$ 



CKLOOP 



MOV 


T29BFR*14,R1 


MOV 


R1.R2 


BIS 


46IT0.R2 


CMP 


R1.R2 


BEQ 


270$ 


JSR 


PC, FATCHK 


ERRHRD 


ERRNQ.T29RIB.EXPREC 



I SET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMANO 
jWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 
j INC AND CHECK FOR MORE THAN 25 ERRORS 
i TSSR INCORRECT AFTER SPACE CMO 

TRAP 
.WORD 
.WORD 
.WORD 
I LOOP IF 



iSET 
I ARE 
iBR, 

I INC 



SELECTED 



C$ERHRD 
130 

T29WDE 
PKTSSR 



TRAP C$CLP1 



TRAP 

j SPACE REVERSE. ACK, COMMANO 

iNunBER OF RECORDS TO SPACE BACK 

jSET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

l NEED DELAY 

j WAIT FOR SSR TO SET 

I GET TSSR CONTENTS 

j SET UP EXPECTED 

»ARE THEY EQUAL 
. □□ re QK 

j DELAY ABOUT .25 SECONDS 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
iLOOP ROUTINE 

{LDOP BACK IF NOT ENttJGH DELAY 
i INC ANO CHECK FOP MORE THAN 25 
i TSSR INCORRECT AFTER SPACE REV 



AFTER SPACE REV 
TRAP 
.WORD 
.WORD 



.WORD 



TRAP C$CLP1 



270$ 



CKLOOP 



I LOOP IF SELECTED 

i PICK UP XST3 

i SET UP EXPECTED 

j RIB SHOULD BE SET 

iIS RIB SET 

iBR, IF RIB WAS SET (GOOO) 

j INC ANO CHECK FOR MORE THAN 25 

:TMK NOT SET AFTER READ REV 

TRAP 
.WORD 
.WORD 
.WORD 

j LOOP IF SELECTED 

TRAP 



♦250.CPCV 



L*DLY,(PC)» 



-6CPC) 

.-4 

-22CPC) 

.-20 



ERRORS 

CMO, 

C$ERHRD 

131 

T29SDG 

PKTSSR 



ERRORS 

C$ERHRD 
132 

T29RI8 
EXPREC 

C$CLP1 



K10 



CZTKHA TK-25 FRT END FUNC 04 
TEST 1: WRITE TAPE MARK RETRY 
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4460 
4461 



4462 
4463 
4464 
4465 
4466 
4467 
4468 
4469 



026330 

026330 104406 

026332 

026332 

026332 104403 



026334 004737 017362 

026340 103002 

026342 000137 023704 

026346 

026346 104432 

026350 003754 



330$ t 



163$: 



CKLOOP 
ENDSUB 



JSR 


PC.TSTLOOP 


BCC 


163$ 


JMP 


T29L00P 


EXIT 


TST 



SEQ 127 



,LO0P IF SELECTED 

TRAP C$CLP1 
l<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 

L10042: 

TRAP CfESUB 



jDO WE NEED TO ITERATE TEST 

j BR, IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

j ALL DONE THIS TEST 

TRAP C*EXIT 
.WORD L10036 



CZTKHA TK-P5 FRT END FUNG $4_ 
TEST 1: WRITE TAPE MARK RETRY 



4471 

4472 

4473 

4475 

4477 

4478 

4479 

4460 

4481 

4482 

4483 

4484 

4485 

4486 

4487 

4488 

4489 

4490 

4492 

4494 

4495 

4496 

4497 

4498 

4500 

4502 

4503 

4504 

4505 

4506 

4507 

4508 

4509 

4510 

4511 

4512 

4513 

4514 

4515 

4516 

4517 

4518 

4519 

4520 

4521 

4522 

4523 

4524 

4525 

4526 

4527 

4528 

4529 



MACRO M1200 20-APR-84 08} 13 



J ♦ 



L10 

PAGE 89 



SEQ 128 



026352 
026360 
026360 
026362 
026364 
026366 
026370 
026370 
026372 
026374 
026376 
026400 



026462 
026470 
026470 
026472 
026474 
026476 
026500 
026510 
026510 
026512 
026512 
026514 
026516 



026520 
026520 
026521 
026522 
026524 



026526 
026530 
026532 
026534 
026536 
026540 
026542 



014004 
026370 
000000 
000012 

026400 
OOOOOO 
000024 
OOOOOO 



10OO06 
026520 
OOOOOO 
000006 



14OO05 

003076 
OOOOOO 
OOOOOO 



010 

200 

OOOOOO 

OOOOOO 



140001 
140401 
141001 
161001 
141401 
161401 
177777 



jLOCAL STORAGE FOR THIS TEST 
I - 



.BLKB 


10-<.-Tl 


T29PACKET: 




.WORD 


14004 


.WORD 


T29DATA 


.WORD 





.WORD 


10. 


T29DATA: 




.WORD 


T298FR 


.WORD 





.WORD 


20. 


.WORD 





T29BFR: ,BLKW 


25. 



j WRITE SUBSYSTEM MEMORY COMMAND PACKET 

.BLKB 10-<,-TUV2A£7> 
T29PK2: 



026544 OOOOOO 



026546 
026550 



OOOCOO 
OOOOOO 





.WORD 


100006 




.WORD 


T29BF2 




.WORD 







.WORD 


6. 




.BLKB 


10-<.-TUV2A67> 


T29PK3: 








.WORD 


140005 


T29PB: 






T29W6: 


.WORD 


FREE 




.WORD 





T29SZ: 


.WORD 
.EVEN 





T296F2; 






T29BS0: 


.BYTE 


10 


T29BS1: 


.BYTE 


200 


T29S2: 


.WORD 





T29S3: 


.WORD 
.EVEN 





iTAPE MOTION PACKET COMMAND VALUES 


T29RN; 


.WORD 


140001 


T29WDR: 


.WORD 


140401 


T29C0N: 


.WORD 


141001 




.WORD 


161001 




.WORD 


141401 




.WORD 


161401 




.WORD 


177777 


T29CNT: 


.WORD 





T29RSZ.* 


.WORD 





T29DLY; 


.WORD 


|D 



jCOh AND PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMAND, WITH CVC-1. ACK 

, ADDRESS OF CHARACTERISTICS BLOCK 

i STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
i ADDRESS OF MESSAGE BUFFER 

j LENGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



j WRITE SUB SYS MEM COMMAND, AND ACK 
, ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{WRITE TAPE MARK RETRY COMMAND, CVC-1 AND ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



{BSELO AREA 
{BSEL1 AREA 
;SEL 2 AREA 
{DATA AREA 



{READ DATA 

{READ DATA REVERSE 

{HEAD PREVIOUS OPP-0 

{READ PREVIOUS OPP-1 

{WRITE TAPE MARK RETRY NEXT OPP-0 

{WRITE TAPE MARK RETRY NEXT OPP-1 

{END OF DATA 

,TAPE RECORD COUNTER STORAGE AREA 

{RECORD STORAGE Sl/E AREA 
{DELAY COUNTER STORAGE AREA 



M10 



CZTKHA TK-25 FRT END FUNC 44 
TEST 1: WRITE TAPE MARK RETRY 

4531 
4532 
4533 
4534 
4535 
4536 

4537 026552 104 162 

4538 026573 124 141 

4539 026700 127 122 

4540 026770 124 123 

4541 027037 127 122 



4543 

4544 

4545 

4546 

4547 

4548 

4549 

4550 

4551 

4552 

4553 

4554 

4555 

4556 

4557 

4558 

4559 

4560 

4561 

4562 

4563 

4564 

4565 

4566 

4567 

4568 

4569 

4570 

4571 

4572 

4573 

4574 

4575 

4576 

4577 

4578 

4579 

4580 

4581 

4582 

4583 

4584 

4585 

4586 

4587 



027267 
027351 
027421 
027476 
027557 
027632 

027714 
027761 
030026 
030114 
030212 
030270 
030337 
030412 
030500 
030607 
030701 
030754 
031046 
031135 
031217 
031301 
031367 
031455 
031553 
031634 
031716 
032016 
032111 



032140 
032140 
032144 
032150 
032154 
032160 
032162 
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j LOCAL TEXT MESSAGES TOR TEST 



SEQ 129 



151 
160 
111 
123 
111 



T290FL 
T29WNG 
T29NCF 
T29RDF 
T29RRF 



.ASCIZ 'Drive is OFFLINE' 

.ASCIZ 'Tape Position Incorrect After WRITE TAPE MARK RETRY Previous (OPP-lV 

.ASCIZ 'WRITE TAPE MARK RETRY, At BOT , Failed To Set NEF (XSTO)* 

.ASCIZ 'TSSR Incorrect After READ DATA Command' 

.ASCIZ 'WRITE TAPE MARK RETRY Previous (Space Reverse. Read Forward) Command Foiled 



4542 027153 127 122 111 T29RRG: .ASCIZ 'WRITE TAPE MARK RETRY Previous CReed Forward, Space Reverse) Command Failed 



120 
122 

12* 
111 
127 
124 

124 
124 
104 

127 
124 
122 
122 
124 
124 
124 
103 
124 
127 
122 
122 
122 
122 
104 
124 
124 
127 
124 
127 



117 
111 
123 
154 
122 
123 

123 
141 
141 
122 
123 
145 
101 
123 
123 
123 
126 
123 
122 
145 
145 
145 
145 
141 
123 
123 
122 
115 
162 



012701 
012721 
012721 
005021 
012721 



026360 
140004 
026370 

ooooia 



123 
102 
123 
154 
111 
123 

123 
160 
164 
111 
123 
167 
115 
123 
123 
123 
103 
102 
111 
141 
141 
163 
141 
164 
123 
123 
111 
113 
151 



T29SC: 
T29L0R 
T29W0F 
T29L0Q 
T29SSR 
T29W0E 



T29WRT 

T29B0T 

T290TA 

T29E0T 

T29TM: 

T29RWN 

T29RNC 

T29AM3 

T29W00 

T29W0C 

T29VCK 

T296A: 

T29WSS 

T29L0N 

T29L0P 

T29PBP 

T29TRL 

T29NEQ 

T29RDG 

T29S0G 

T29RIB 

T29RRN 

TST29ID: 

f * 



, ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 




•WRITE TAPE MARK RETRY COMMAND Not Accepted 1 

•TSSR Not Correct After SPACE REVERSE DATA Command' 

'TSSR Not Correct After WRITE Command' 

'Tape Not At BOT After REWIND Command' 

'Data Written To Tape Not Equal To Data Read From Tape' 

'WRITE TAPE MARK RETRY DATA OVER EOT GAVE NO TAPE STATUS 

'TSSR Not Correct After SPACE REVERSE Into BOT' 

'Rewind (POSITION) Command Not Accepted' 

'RAM Error, Correct Dava Pattern Not In Rwn* 

'TSSR Init. Failed Aftir WRITE TAPE MARK RETRY COMMAND' 



ALERT 



TSSR Not Correct After 
TSSR Not Correct After 
CVC Set, Didn' « t Reset 
TSBA Not Correct After 
WRITE SUBSYSTEM MEMORY 
Read) no Long Record 
Reading Long Record 



DATA 
DATA 



Command, 

Command' 



WRITE TAPE MARK RETRY 

WRITE TAPE MARK RETRY 

VCK In Message Buffer' 

WRITE TAPE MARK RETRY DATA Command' 

Command Not Accepted (RAM Read)' 
Failed To Set RLL Bit In XSTO' 
Failed To Set RLS Bit 



SWB Bit Set 



In XSTO' 



Residual Byte Count Incorrect Aftsr Short Record Read' 

Reading Long Record Failed To Give Tape Status Alert' 

Data WRITE TAPE MARK RETRY From Tape Not Correct, After SUB-1' 

TSSR Incorrect After READ REVERSE Into Tape Mark' 

TSSR Incorrect After SPACE REVERSE Into Tape Mark' 

WRITE TAPE MARK RETRY At First Record, Failed To Set RIB (XST3)' 

TMK (XSTO) Failed To Set After READ REVERSE Into Tape Mark' 

ASCIZ 'Write Tape Mark Retry' 



{ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
; WRITE SUBSYSTEM MEMORY COMMAND 



T29REST: 




SAVREG 




MOV 


0T29PACKET.R1 


MOV 


$140004 ,(R1)* 


MOV 


#T29DATA,(Rl)i 


CLR 


CR1)» 


MOV 


010*,(R1)* 



iSAVE THE REGISTERS 

jSTART OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK . CVC»1 

I ADDRESS OF CHARAISTICS DATA BLOCK 

j EXTENDED ADDRESS 

*SIZE OF DATA BLOCK IN BYTES 



N10 



CZTKHA TK-25 FRT END FUNC M 
TEST 1: WRITE TAPE MARK RETRY 
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SEQ 130 



4588 

4589 

4590 

4591 

4592 

4593 

4594 

4595 

45% 

4597 

4598 

4599 

4600 

4601 

4602 

4603 

4604 

4605 

4606 

4607 

4608 

4609 

4610 

4611 

461? 

4613 

4614 

4615 

4616 

4617 

4618 

4619 

4620 

4621 



032166 
032172 
032174 
032200 
032202 
032206 
032212 
032220 
032222 
032226 
032230 



032232 
032232 
032236 
0^2242 
032246 
032252 
032254 
032260 
032262 
032266 
032270 
032272 
032274 
032274 
032300 
032304 
032310 
032314 
032316 
032322 
032324 
032324 
032324 



012721 
005021 
012721 
005021 
012711 
012702 
01276? 
00574 L 
020227 
001371 
000207 



012701 
012721 
012721 
005021 
012721 
005021 
012701 
005021 
005011 
000207 



012701 
012721 
012721 
005021 
012711 
000207 



104401 



026400 
000024 

000000 
000030 
177777 026400 

000000 



026470 
140006 
026520 

000006 

026520 



026510 
000000 
000000 

000000 



64$ i 



T29RT2; 



T29RT3: 



MOV 
CL3 
MOV 
CLR 
MOV 
MOV 
MOV 
TST 
CMP 
BNE 
RTS 



SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

CLR 

MOV 

CLR 

CLR 

PT5 

SAVREG 

MOV 

MOV 

MOV 

CLR 

MOV 

RTS 

6NDTST 



<FT29BFR,CR1)* 

CRD* 

020. ,(Rl)i 

CRD* 

♦0.CR1) 

*24.,R2 

0177777, T29BFRCR2) 

-CR2) 

R2,*0 

64* 

PC 



*T29PX2,R1 
♦ 140006, (R.n* 
♦T29BF2.CRD* 
CRD* 
#6..CR1)* 

(Rl)4 

♦T296F2.R1 
CRD* 

PC 



*T29PK3,R1 

OO.CRl)* 

♦O.CRD* 

CRD* 

*0,(Rl) 

PC 



j ADDRESS OF MESSAGE BUFFER 
{LENGTH OF MESSAGE BUFFER 

» SELECT DRIVE ZERO CO) 

{NUMBER OF LOCATIONS TO BE CLEARED 

I ALL ONES TO MESSAGE BUFFER 

{NEXT LOCATION 

( CHECK FOR END OF LOOP 

i KEEP GOING UNTIL DONE 

, RETURN 



j SAVE THE REGISTERS 

I START OF THE PACKET 

(WRITE SUBSYSTEM MEM. WITH ACK.CVC-1, 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE CF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



•RETURN 

;SAVE THE REGISTERS 
{START OF THE PACKET 
{WRITE SUBSYSTEM MEM. WITH ACK , 
{ADDRESS OF DATA Bl UJK 
{EXTENDED ADDRESS 
{SIZE OF DATA BLOCK IN BYTES 
{RETURN 



L10O36: 



TRAP 



C$ETST 



C/TKHA TK 25 FRT END F'-NC 04 
TEST 2: SKIP TAPE MARKS 

4624 
4625 
4626 
4627 
4628 
4629 
4630 
4651 
4632 
4633 
4634 
4635 
4636 
4637 
4638 
4639 
4640 
4641 
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SEQ 131 



4643 

4644 

4645 

4650 

4651 

4652 

4653 

4654 

4655 

4656 

4657 

4658 

4659 

4660 

4661 

4662 

4663 

4664 

4665 

4666 

4667 

4668 

4669 

4670 

46/1 

4672 

4673 

4674 

4675 

46 76 

46 7 7 

4678 

46 79 

4680 

4681 



032326 
032326 
032326 
052332 
032336 
032344 
032350 
032354 



005037 
005037 
012737 
012700 
0O4737 
012737 



002172 
003104 
005676 
041121 
017414 
000001 



002150 
002166 



032362 
052362 
032362 
032362 



.SBTTL. TEST 2j SKIP TAPE MARKS 

l ♦ 

l THIS TEST VERIFIES PROPER OPERATION OF THE SKIP TAPE MARKS 
iFORWARD AND SKIP TAPE MARKS REVERSE COMMANDS. PROPER OPERATION 
lUNOER CONTROL OF ALL COMBINATIONS OF THE ENABLE SKIP TAPE MARKS 
iSTOP (ESS) AND ENABLE TAPE MARKS STOP OFF BOT CENB) BITS SPECIFIED 
iBY THE WRITE CHARACTERISTICS COMMAND. THE TEST CONSISTS OF THE 
iFOLLOWING SUBTESTS (FOP EACH SUBTEST, THE TAPE IS FIRST WRITTEN 
jWITH AN APPROPRIATE SERIES OF Df>TA RECORDS AND/OR TAPE MARKS 
lANO/OP DOUBLE TAPE MARKS, 
i 
I 



I THE TEST CONSISTS OF THE FOLLOWING 11 SUBTESTS 



\ 



BGNTST 

CLR 
CLR 
MOV 
MOV 
JSR 
MOV 



FATFLG 
KTFLG 

♦EPRTl.EPRTSW 
#TST30ID.R0 

PC.TSTSETUP 
♦l.LOOPCNT 



T2: j 
jCLEAR FATAL ERROR FLAG 
IHOLD OFF KTU 

iPRIMARY ERROR MESSAGE 
lASCII MESSAGE TO IDENTIFY 
iDO INITIAL TEST SETUP 
I PERFORM 1 ITERATIONS 



TEST 



TEST 2, SUBTEST 1 



VERIFIES THAT A SKIP TAPE MARKS FORWARO COMMAND WITH 
A TAPE MARK COUNT OF 1 OPERATES OPERATES PROPERLY. THE 
IS FIRST REWOUND. THEN WRITTEN WITH SEVERAL "FILES' 1 ! 
EACH FILE CONSISTS OF A NUT«ER OF DATA RECORDS 
FOLLOWED BY A TAPE MARK. THE FINAL FILE IS 
TERMINATED BY A DOUBLE TAPE MARK. EACH DATA RECORD 
CONTAINS A FILE NUMBER AND THE RECORD NUT«ER WITHIN 
THE FILE SO THAT TAPE POSITION CAN BE SUBSEQUENTLY 
VERIFIED BY READING THE DATA. THE TAPE IS AGAIN 
REWOUK) AfC A SERIES OF SKIP TAPE MARKS FORWARD 
COtlANDS ARE ISSUED AND THE RESULTS (TAPE STATUS ALERT 
TERMINATION. TMK-1 STATUS. TAPE POSITION VIA READ 
COT»W*>) IS CHECKED. PRIOR TO ISSUANCE OF EACH SKIP 
COMMANO, A WRITE CHARACTERISTICS COMMAND IS ISSUED TO 
SET UP THE ESS AND ENB CONTROL BITS. ALL 
C0T«INATI0NS OF ESS AND ENB ARE USED (00,01.10, 
11 )i OPERATION SHOULD BE THE SAME IN EACH CASE FOR 
THIS SUBTEST. 



TAPE 



T3QLQUPi 



BUNSU6 



>*:>>%»>>***> 



10440^ 



BEGIN SUBTP.r 
TRAP 



»**>*»>*»»»> 



CS&SUtt 



CZTKHA TK-25 FRT ENO FUNC *4 
TEST 2: SKIP TAPE MARKS 
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SEQ 132 



4682 
4683 
4684 
4685 
4686 
4687 
4688 
4689 



4690 
4691 
4692 
4696 
4697 



4698 
4699 

4 700 
4 701 
4 702 
4703 
4704 
4 705 
4706 
4 707 
4708 
4709 
4710 
4714 
4715 



4716 

4717 

4718 
4719 
4720 

4721 
4722 
4 723 
4 724 
4725 
4 726 
4727 



032364 
052370 
032374 
032400 
032404 
032412 
032416 
032420 
032420 
032424 
032426 
032432 
032434 
032440 
032442 
032446 
032450 
032454 
032456 
032462 
032464 
032464 
032466 
0324 70 
0324 72 
032474 



004737 
005037 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000311 
003554 

011666 



032500 
0325O4 
032506 
032512 
032514 
032514 
032516 
032520 
032522 
032524 
032524 



004737 
103407 
004737 
010001 

104456 
0O0312 
004 760 
011666 

104406 



041142 

036544 

041234 

041276 

176750 036546 

016650 



000250 
002116 
177772 
177756 
036546 
020106 



101: 



JSR 
CLR 
JSR 
JSR 
MOV 
JSR 
BCS 
DELAY 



PC.T30REST 

T30FCN 

PC.T30RT2 

PC.T30RT3 

♦65000. .T30DLY 

PC.SOFINIT 

201 

250 



DEC 
BNE 
JSR 
MOV 
ERRDF 



T300LY 

10$ 

PC.FATCHK 

R0.R1 

ERRNO.SFIERR, SFIMSG 



I SET COMMAND PACKET 

jCLEAR TILE COUNTER 

I SET UP OTHER COMMANO PACKET 

j SET UP OTHER COMMANO PACKET 

I SET UP DELAY COUNTER 

,00 INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

j DELAY ROUTINE CALL 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
iBUMP COUNTER 

,BR, IF MOPE COUNTING TO DO 
I INC AND CHECK FOR MORE THAN 
iCONTENTS OF TSSR REGISTER 
I FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



»250,(PC)» 



LIDLY.CPO* 



-6CPC) 

. 4 

-22CPC) 

. -20 



25 ERRORS 



CtERDF 
201 

SFIERR 
SFIM5G 



20$ j 



032474 012704 036360 



MOV 



«T30PACKET,R4 



i SUBROUTINE NEEDS PACKET ADDRESS 



ISSUE WRITE CHARACTERISTICS COMMANO 

********************************************************* 



010332 
020106 



23$j 



JSR PC.WRTCHR 

BCS 231 

JSR PC,FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG » SFIMSG 



CKLOOP 



»ISSUe WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSL€D OK 

I INC ANO CHECK FOR hORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

, WRITE CHARACTERISTIC FAILED 

TRAP CIERHRD 

.WORD 202 
.WORD WRTMSG 
.WORD SFIMSG 

jLOOP IF SELECTED 

TRAP C*CIP1 



ISSUE A REWINO TO TAPE DRIVE ANO WAIT FOR SSR TO SET 
******************* ***************************** ********* 



032526 

032532 
P32534 

032536 



004737 
103411 
010004 

01650X 



010434 
000000 



JSR 


PC.REUINO 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 



I CALL TAPE REWIND COMMAND 
I BR, IF NO PRC«LEM 
I GET PACKET ADDRESS 
iGET STATUS REGISTER 



CZTKHA TK 25 FRT END FUNC *4 
TEST 2: SKIP TAPE MARKS 
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SEQ 133 



4 728 
4732 



4733 

4 734 

4735 
4 736 
4737 
4738 
4739 
4740 
4741 
4742 
4743 
4744 
4 745 
4 746 
4750 



4751 

4752 
4753 
4754 
4755 
4756 
4757 
4 758 
4759 
4760 
4761 
4762 
4763 
4764 
4 765 
4766 
4767 
4768 
4769 
4770 
4771 
4772 
4773 
4774 
4775 
4776 
4 780 
4781 
4782 
4783 



032542 
032546 
032546 
032550 
032552 
032554 
032556 
032556 



032560 
032564 
032566 
032572 
032574 
032576 
032602 
032602 
032604 
03P606 
032610 
032612 
032612 
032614 
032622 
032626 
032634 



032642 
032650 
032654 
032660 
032662 
032664 
032666 
032672 
032676 
032702 
032706 
032712 
032714 
032716 



032722 



004737 020106 

104456 
000313 
040130 
011700 

104006 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000314 
037731 
016350 

104406 

012737 
012703 
013737 
012737 



012737 
012704 
013702 
000302 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



30$: 



JSR 
ERRHRO 



CKLOOP 



PC.FATCHK 
ERRN0,T30RWN,PKTSSR 



I INC ANO CHECK TOR MORE THAN 25 ERRORS 
I REWIND NOT ACCEPTED 



lLOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


203 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



CtCLPl 



iGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

i 

j ********************************************************* 



036406 
000002 

020106 



MOV 


T30BFRf6,Rl 


MOV 


R1.R2 


BIS 


♦BIT1.R2 


CMP 


R1,R2 


BEQ 


401 


JSR 


PC.FATCHK 


ERRHRD 


ERRNO,T3O60T,EXPREC 



000001 
000001 
003076 
003720 



036544 

036512 
036516 



40$ 



64$: 
65$: 



CKLOOP 

MOV 
MOV 

MOV 
MOV 



♦1..T30FCN 
*1,R3 

FREE.T30WB 
«20O0.,T30SZ 



,PICK UP XSTO 

j SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

jDOES EXP • REC'D 

|BR, IF EQUAL (OK) 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 204 
.WORD T30B0T 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C$CLP1 

» SET "FILE" COUNTER AT 1 DECIMAL 

jONE RECORD PER "FILE" 

iSET UP PACKETS' S WRITE BUFFER 

i SET RECORD SIZE AT 2000 BYTES 



,****+* ****************************** ******** ************* 

jWRITE DATA.ACK.CVC-1 COMMAND 

I 
I********************************************************* 



140005 
036510 
036544 



150204 
177776 
017124 
000000 
000200 



020106 



036510 



MOV 


♦140005, T30PK3 


MOV 


♦T30PK3.R4 


MOV 


T30FCN.R2 


SWAB 


R2 


MOV 


R3.R1 


ADD 


R2.R1 


MOV 


R1»8FREE 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


70$ 


JSR 


PC.FATCHK 



ERRSOFT ERRN0.T30WDD, PKTSSR 



WRITE DATA.ACK.CVC-1 COMMAND 

SET UP R4 WITH PACKET ADDRESS 

GET FILE COUNTER 

MOVE TO UPPER BYTE 

GET RECORD COUNTER 

FILE COUNTER IN UPPER , RECORD $ LOW 

MOV TO OUT PUT BUFFER 

ISSUE COMMAND 

WAIT FOR SSR TO SET 

GET TSSR CONTENTS 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

INC AND CHECK FOR MORE THAN 25 ERRORS 

SOFT ERROR, DON'T CARE ABOUT WRITE 

COMMAND'S RESULTS - CHECKING SKIP 

TAPE MARK COMMANO 

TSSR INCORRECT AFTER WRITE DATA 



CZTKHA TK-25 FRT END FUNC *4 
TEST 2 J SKIP TAPE MARKS 
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SEQ 134 



032722 


104457 




032724 


000315 




032726 


037060 




032730 


011700 




4764 032732 






032732 


104406 




4785 032734 


005203 




4786 032736 


020327 


000021 


4787 032742 


001331 




4788 






4789 






4790 






4791 






4792 






4793 






4794 






4795 032744 


012737 


141011 036510 


4796 032752 


012704 


036510 


4797 032756 


010465 


177776 


4798 032762 


004737 


017124 


4799 032766 


016501 


000000 


4800 032772 


012702 


000200 


4801 032776 


020102 




4802 033000 


001406 




4803 033002 


004737 


020106 


4807 033006 






033006 


104456 




033010 


000316 




033012 


040252 




033014 


011700 




4808 033016 






033016 


104406 




4809 033020 


005237 


036544 


4810 033024 


023727 


036544 000006 


4811 033032 


001273 




4812 






4813 






4814 






4815 






4816 






4817 






4818 






4819 033034 


012737 


141011 036510 


4820 033042 


012704 


036510 


4021 033046 


010465 


177776 


4822 033052 


004737 


017124 


4823 033056 


016501 


000000 


4824 033062 


012702 


000200 


4825 033066 


020102 




4826 033070 


001406 




4827 033072 


004737 


020106 


4831 033076 






033076 


104456 




033100 


000317 




033102 


040252 




033104 


011700 




4832 033106 







70*: 



CKLOOP 



INC 


R3 


CMP 


R3,*21 


BNE 


651 



TRAP CIERSOFT 

, UORO 205 

.WORD T30WOD 

.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLP1 

I COUNT THE RECORD COUNTER DOWN 

»AT 20 YET 

j BR, IF NOT AT 20 RECORDS WRITTEN 



j************************************ •(.*** \* ********* ****** 

! WRITE TAPE MARK.ACK.CVC-1 COMMANO 

J 

I ************************* A********************* ********** 



MOV 


♦141011, T30PK3 


MOV 


♦T30PK3.R4 


MOV 


R4,TSD6(R5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


1601 


JSR 


PC.FATCMK 



160$: 



ERRHRD ERRNO , T30WDC , PX TSSR 



CKLOOP 



INC 


T30FCN 


CMP 


T30FCN.06 


BNE 


64$ 



j WRITE TAPE MARK,ACK,CVC-1 COMMAND 

i SET UP R4 WITH PACKET ADDRESS 

, ISSUE COMMAND 

I WAIT FOR SSR TO SET 

I PICK UP TSSR 

;SET UP EXPECTED (SSR ONLY) 

j WAS STATUS GOOO 

j BR, IF TERMINATION WAS GOOO 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CIERHRD 

.WORD 

.WORD 

.WORD 
» LOOP IF SELECTED 

TRAP 
: COUNT THE "FILE" COUNTER DOWN 
jWRITE 5 FILE TO TAPE 
jBR, IF NOT AT 5 FILES WRITTEN 



206 

T30WDC 
PKTSSR 

CICLP1 



j********************************************************** 

j WRITE TAPE MARK.ACK.CVC-1 COMMANO 

J 

t ********************************************************* 



MOV 


♦141011, T30PK3 


MOV 


♦T30PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR,R2 


CMP 


R1.R2 


BEQ 


165$ 


JSR 


PC,FATCHK 



ERRHRD ERRNO. T30WDC, PKTSSR 



165$: CKLOOP 



j WRITE TAPE MARK,ACK,CVC"1 COMMAND 

i SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMANO 

jUAIT FOR SSR TO SET 

iPICK UP TSSR 

j SET UP EXPECTED (SSR ONLY) 

tWAS STATUS GOOO 

j BR, IF TERMINATION WAS GOOO 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

iTSSR NOT CORRECT AFTr;R WRT TAPE M. 

TRAP C$ERHRD 
.WORD 20 7 
.WORD T30WDC 
.WORD PKTSSR 

tLOOP IF SELECTED 



CZTKHA TK-25 FRT END FUNC #4 
TEST 2: SKIP TAPE MARKS 



033106 104406 



4833 
4834 
4835 
4836 
4837 
4838 
4839 
4840 
4841 
4842 
4843 
4844 
4848 



4849 

4850 
4851 
4852 
4853 
4854 
4855 
4856 
4857 
4856 
4859 
4860 
4861 
4862 
4866 



4867 

4868 
4869 
4870 
4871 
4872 
4873 
4874 
4875 
4876 
4877 
4878 
4879 
4880 
4881 
4885 
4886 



033110 
033114 
033116 
033120 
033124 
033130 
033130 
033132 
033134 
033136 
033140 
033140 



004737 010434 

103411 

010004 

016501 000000 

004737 020106 

104456 
000320 
040130 
011700 

104406 



033142 
033146 
033150 
033154 
033156 
033160 
033164 
033164 
033166 
033170 
033172 
033174 
033174 
033176 

033202 
033206 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000321 
037731 
016350 

104406 

012703 

011337 
012704 



033212 
033216 
033220 
033224 
033226 
033226 



036406 
000002 

020106 



036526 

036376 
036360 



004737 010332 

103407 

004737 020106 

010001 

104456 
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SEQ 135 



TRAP 



C*CLP1 



l ******************* *********** ******** a****** ************ 

! ISSUE A REWINO TO TAPE DRIVE AND WAIT FOR SSR TO SET 

j ********************************************************* 



JSR 


PC, REWIND 


BCS 


170$ 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


JSR 


PC.FATCHK 



170$: 



ERRHRD ERRts'O , T30RWN , PKTSSR 



CKLOOP 



,CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

jGET PACKET ADDRESS 

jGET STATUS REGISTER 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

l REWIND NOT ACCEPTED 



j LOOP IF SELECTED 



TRAP 


CIERHRD 


.WORD 


208 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



I ********************************************************* 

* 

!GET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

J 
{ ********************************************************* 



MOV 


T306FR*6,R1 


MOV 


R1.R2 


BIS 


4BIT1.R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC,FATCHK 



180$; 



182$: 



ERRHRD ERRNO . T30BOT , EXPREC 

CKLOOP 

MOV *T30IMV,R3 

MOV (R3),T30ETM 

MOV OT30PACKET.R4 



iPICK UP XSTO 

j SET UP EXPECTED 

l SET BOT BIT IN EXPECTED 

i DOES EXP - REC'D 

iBR, IF EQUAL COK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWINO 

TRAP CIERHRD 

.WORD 209 
.WORD T3060T 
.WORD EXPREC 

I LOOP IF SELECTED 

TRAP C$CLP1 

l SET UP POINTER TO COMMAND TABLE 

jGET NEXT COMMAND 

I SUBROUTINE NEEDS PACKET ADDRESS 



(******** **********.> ************* ********** *************** 

j ISSUE WRITE CHARACTERISTICS COMMAND 

j ********************************************************* 



JSR PC,WRTCHR 

BCS 188$ 

JSR PC.FATCHK 

MOV R0,R1 

ERRHRD ERRNO , WR TMSG , SF IMSG 



I ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

»INC ANO CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

jWRITE CHARACTERISTIC FAILED 

TRAP CSERHRD 



^r 2 ! K si& F W P i N RA^ c " 
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SEQ 136 



4887 

4888 
4889 
4890 
4891 
4892 
4893 
4894 
4895 
4896 
4897 
4898 
4899 
4900 
4901 
4902 
4903 
4904 



033230 
033232 
033234 
033236 
033236 



4905 
4906 
4907 
4908 
4909 
4910 
4914 



4915 

4916 
4917 
4918 
4919 
4920 
4921 
492? 
4923 
4924 
4925 
4926 
4927 
4928 
4932 



033240 
033246 
033254 
033260 
033264 
033272 
033276 
033302 
033306 
033310 
033310 
033314 
033316 
033322 
033324 
033330 
033332 
033336 
033340 
033344 
033346 
033352 
033354 
033356 
033362 
033362 
033364 
033366 
033370 
033372 
033372 



000322 
004760 
011666 

104406 



012737 
012737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
004737 

104456 
000323 

037004 
011700 

104406 



033374 
033400 
033402 
033406 
033410 
033412 
033416 



013701 
010102 
052702 
020102 
001406 
004 737 



141010 
000001 
036510 
177776 
176750 
017124 
000000 
000200 



000250 
002116 
177772 
177756 
036546 
000200 

020106 



036406 
100000 

020106 



036510 
036512 



036546 



188 * j CKLOOP 



I LOOP IF SELECTED 



.UORD 
.WORD 
.WORD 

TRAP 



210 

WRTMSG 

SFIMSG 

CICLP1 



j ********************************************************* 

tSKIP TAPE MARK.ACK.CVC-1 COMMANO 

i 

l **************************** ********************* ******** 



189$: 
190$ i 



MOV *141010,T30PK3 

MOV •1.T30RB 

MOV *T30PK3,R4 

MOV R4.TSDB(R c O 

MOV #65000., T300LY 

JSR PC.UAITF 

MOV TSSRCR5),R1 

BIT *SSR,R1 

BNE 191$ 

DELAY 250 



j SKIP TAPE MARK ACK.CVC-1 COMMAND 

iSET UP NUMBER TO SKIP 

,SET UP R4 WITH PACKET ADDRESS 

I ISSUC COMMANO 

jSET UP DELAY COUNTER 

j WAIT FOR SSR TO SET 

jPICK UP TSSR 

j IS SSR SET YET 

;BR, IF SSR IS SET 

j CALL DELAY ROUTINE 



MOV 


*250,CPC)» 


.WORD 





MOV 


LtDLY.CPC)* 


.WORD 





DEC 


-6CPC) 


BNE 


. -4 


DEC 


-22CPC) 


BNE 


.-20 



191$: 



DEC 


T300LY 


BNE 


190$ 


MOV 


*SSR,R2 


CMP 


R1.R2 


BEQ 


192$ 


JSR 


PC.FATCHK 


ERRHHD 


ERRN0.T30SKM.PKTSSR 



192$: CKLOOP 



jBUMP DELAY ROUTINE 

iBR, IF MORE DELAY TO GO 

jSET UP EXPECTED (SSR ONLY) 

l WAS STATUS GOOD 

sBR. IF TERMINATION WAS GOOO 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

{TSSR NOT CORRECT AFTER SKIP TAPE M. 

TRAP C$ERHRD 
.WORD 211 
.WORD T30SKM 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP C$CLP1 



j ********************************************************* 

jGET EXTENDED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 
i********************************************************* 



MOV 


T306FR*6,R1 


MOV 


Rl.RZ 


BIS 


*6IT15,R2 


CMP 


R1.R2 


BEQ 


195$ 


JSR 


PC.FATCHK 



ERRHRD ERRN0 I T30TMK,LXPREC 



iPICK UP XSTO 

, SET UP EXPECTEO 

l SET TMK BIT IN EXPECTED 

j DOES EXP - REC'D 

j BR, IF EQUAL (OK) 

i INC ANO CHECK FOR MORE THAN 25 fcRRORS 

I TMK NOT SET AFTER WRT TAPE MARK 



CZTKHA TK-25 FRT ENO FUNC M 
TEST 2: SKIP TAPE MARKS 
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4933 

4954 
4935 
4936 
4937 
4938 
4939 
4940 
4941 
4942 
4943 
4944 
4945 
4946 
4947 
4948 
4949 
4950 
4951 
4952 
4953 
4957 



4958 

4959 
4960 
4961 
4962 
4963 
4967 



4968 

4969 
4970 
4971 
4972 
4973 
4977 



4978 



033416 
033420 
033422 
033424 

033426 
033426 
033430 
033434 
033440 



033446 

033454 

033460 

033466 

033472 

033476 

033502 

033506 

033510 

033512 

033516 

033516 

033520 

033522 

033524 

033526 

033526 

033530 

033534 

033540 

033542 

033544 

033550 

033550 

033552 

033554 

033556 

033560 

033560 

033562 

033566 

033572 

033574 

033576 

033602 

033602 

033604 

033606 

033610 

033612 

033612 



104456 
000324 
040404 
016350 

1O4406 
012700 
0O4737 
013737 



012737 
012704 
012737 
010465 
0O4737 
016501 
012702 
020102 
001406 
004737 

104456 
000325 

057303 
011700 

104406 
017701 
012702 
020102 
001006 
004737 

104456 
000326 
040760 
016350 

104406 
012702 
017701 
020201 
001406 
004737 

104456 

000327 
037132 
016350 

104406 



177777 
020400 
003076 036512 



140001 
036510 
003720 
177776 
017124 
000000 
000200 



020106 



147342 

177777 



020106 



001001 
147304 



020106 



195$: CKLOOP 

MOV 
JSR 
MOV 



#177777, RO 
PC.FILLMEM 
FREE.T30RB 





SEQ 137 


TRAP 


C$ERHRD 


.WORD 


212 


.WORD 


T30TMK 


.WORD 


EXPREC 


{LOOP IF SELECTED 




TRAP 


C*CLP1 


1 VALUE TO WRITTEN TO MEMORY 




jFILL MEM WITH ALL ONES 




{STARTING READ BUFFER ADDRESS 





J ********************************************************* 

{READ FORWARD, ACK.CVC-1 COMMANO 

$ 

I ****************************** a********* ****** *********** 



056510 
036516 



MOV 


$140001, T30PK3 


j READ 


MOV 


♦T30PK3.R4 


j SET l 


MOV 


♦2000. .T30SZ 


{SET i 


MOV 


R4,TSD6(R5) 


tissm 


JSR 


PC.WAITF 


{WAIT 


MOV 


TSSR(R5),R1 


{GET 


MOV 


♦SSR.R2 


{SET i 


CMP 


R1.R2 


,ARE 


BEQ 


200$ 


iBR, 


JSR 


PC. FAT HK 


j INC 


ERRHRD 


ERRNO. 130RDF.PKTSSR 


)TSSR 



200$: CKLOOP 

MOV 
MOV 
CMP 
BNE 
JSR 
ERRHRD 



220$: 



8FREE.R1 

#177777, R2 

R1.R2 

220$ 

PC F'ATCHK 

ERRNO. T30DTR, EXPREC 



FORWARD. ACK.CVC-1 COMMANO 
UP R4 WITH PACKET ADORESS 
UP RECORD SIZE IN PACKET 
E COMMAND 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

ANO CHECK FOR MORE THAN 25 ERRORS 
INCORRECT AFTER WRITE DATA 

TRAP CIERHRD 
.WORD 213 
.WORD T30RDF 
.WORD PKTSSR 
{LOOP IF SELECTED 

TRAP CtCLPl 
{FIRST LOC IN READ BUFFER 
{EXPECTED IF NO DATA TRANS. 
{DID ANY DATA GET TRANSFERRED 
{BR. IF NO DATA TRANS (GOOD) 
; INC ANO CHECK FOR MORE THAN 25 ERRORS 
{DATA TRANSFERRED ON READ TAPE MARK 







TRAP 


C$ERHRD 






.WORD 


214 






.WORO 


T300TR 






.WORD 


EXPREC 


CKLOOP 




;L00P IF SELECTED 








TRAP 


C$CLP1 


MOV 


#1001. R2 


{SET UP RECORD NUMBER EXPECTED 


CFILE 2) 


MOV 


SFREE.R1 


;GET INFO FROM BUFFER 




CMP 


R2.R1 


{ARE THEY EQUAL 




BEQ 


228$ 


{BR, IF EQUAL (OK) 




JSR 


PC.FATCHK 


{INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO. T30PTB. EXPREC 


{RECORD POSITION WAS NOT CORRECT 



228$: 



CKLOOP 



{LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 

215 

T30PTB 

EXPREC 

C$CLP1 



CZTKHA TK-25 FR 
TEST 2: SKIP T, 


T END F'UNC *4 
APE MARKS 


4979 






4980 






4981 






4982 






4983 






4984 






4985 






4986 033614 


004737 


010434 


4987 033620 


103411 




4988 033622 


010004 




4989 03362* 


016501 


000000 


4990 033630 


004737 


020106 


4994 033634 






033634 


104456 




033636 


000330 




033640 


040130 




033642 


011700 




4995 033644 






033644 


104406 




4996 






4997 






4998 






4999 






5000 






5001 






5002 






5003 033646 


013701 


036406 


5004 033652 


010102 




5005 033654 


052702 


000002 


5006 033660 


020102 




5007 033662 


001406 




5008 033664 


004737 


020106 


5012 033670 






033670 


104456 




033672 


000331 




033674 


037731 




033676 


016350 




5013 033700 






033700 


1O4406 




5014 033702 


005723 




5015 033704 


011301 




5016 033706 


020127 


177777 


5017 033712 


001402 




5018 033714 


000137 


033202 


5019 033720 






033720 


104406 




5020 033722 






03372c 






033722 


104403 
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SEQ 138 



. ************************* ******** ********** ************** 

j ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

i 

{ ********************************************************* 



JSR 


PC, REWIND 


BCS 


230$ 


MOV 


R0.R4 


MOV 


TSSR(R5) t Rl 


JSR 


PC.FATCHK 



ERRHRD ERRNO. T30RWN,PKTSSR 



230$s CKLOOP 



1 CALL TAPE REWIND COMMAND 

1 BR, IF NO PROBLEM 

*SAV£ PACKET ADDRESS 

jGET TSSR STATUS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

1 REWIND NOT ACCEPTED 



;L00P IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


216 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



1 ********************************************************* 
iGET EXTENOED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

i 

j ********************************************************* 



MOV 


T30BFRf6,Rl 


MOV 


R1.R2 


BIS 


«BIT1,R2 


CMP 


R1.R2 


BEQ 


240$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T30B0T , EXPREC 



240$: CKLOOP 



330$: 



TST 


(R3)* 


MOV 


(R3),R1 


CMP 


Rl, 0177777 


BEQ 


330$ 


JMP 


182$ 


CKLOOP 





ENDSUB 



jPICK UP XSTO 

j SET UP EXPECTED 

j SET BOT BIT IN EXPECTED 

1 DOES EXP - REC'D 

jBR, IF EQUAL COK) 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

;TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 217 
.WORD T3060T 
.WORD EXPREC 

j LOOP IF SELECTED 

TRAP C$CLP1 

jPOINT TO NEXT POSITION 

;GET NEXT COMMAND ETC. 

jF.NO OF TABLE MARKER 

l BR, IF AT END OF TABLE 

j JUMP TO MORE COMMANOS TO DO 

jLOOP IF SELECTED 

TRAP C$CLP1 

;<<<<<<<<<< < ENO SUBTEST >>>>>>>>>>> 

L 10044: 

TRAP CSESU8 



CZTKHA TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 



5022 
5023 
5024 
5025 
5026 
5027 
5028 
5029 
5050 
5031 
5052 
5033 
5034 
5035 



5036 
5037 
5038 
5039 
5040 
5041 
5042 
5043 



5044 

5045 
5046 
5050 
5051 



5052 
5053 
5054 
5055 
5056 
5057 
5058 
5059 
5060 
5061 
5062 
5063 
5064 
5068 
5069 



033724 
033724 
033724 
033726 
033732 
033736 
033742 
033746 
033754 
033760 
033762 
033762 
033766 
033770 
033774 
033776 
034002 
034004 
034010 
034012 
034016 
034020 
034024 
034026 
034026 
034030 
034032 
034034 
034036 



104402 
004737 
005037 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000332 
003554 
011666 
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SEQ 139 



VERIFIES THAT SKIP TAPE MARKS COMMANDS WITH A TAPE 
MARK COUNT GREATER THAN 1 OPERATE PROPERLY. COUNTS 
OF 2,3,8,64,256, AND 512 ARE TESTED. THE 
TESTING SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1, 



BGNSUQ 



{>>>>>>>>>>>> 



BEGIN SUBTEST >>>> 
T2.2: 

TRAP 



>>>>>>>> 

C$BSUB 



041142 

036544 

041234 

041276 

176750 036546 

016650 



000250 
002116 
177772 
177756 
036546 
020106 



10$ 



JSR 


PCT30REST 


CLR 


T30FCN 


JSR 


PCT30RT2 


JSR 


PCT30RT3 


MOV 


♦65000., T30DLY 


JSR 


PCSOFINIT 


BCS 


20* 


DELAY 


250 



DEC 


T300LY 


BN€ 


10$ 


JSR 


PCFATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO,SFIERR, SFIMSG 



j SET COMMAND PACKET 

j CLEAR FILE COUNTER 

tSET UP OTHER COMMAND PACKET 

j SET UP OTHER COMMAND PACKET 

iSET UP DELAY COUNTER 

i DO INITIALIZE ON CONTROLLER 

jBR IF INIT WAS OK 

i DELAY ROUTINE CALL 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
jBUMP COLTER 

j BR, IF MORE COUNTING TO DO 
j INC ANO CHECK FOR MORE THAN 25 
; CONTENTS Of TSSR REGISTER 
jFATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



♦250. (PC)* 



LIDLY.CPO* 



-6CPC) 

.-4 

-22CPC) 

.-20 



ERRORS 



C$ERDF 
218 

SFIERR 
SFIMSG 



20$ 



034036 012704 036360 



MOV 



*T30PACKET,R4 



{SUBROUTINE NEEDS PACKET ADDRESS 



]*******************+************************************* 

\ ISSUE WRITE CHARACTERISTICS COMMANO 

s ************************** ****************#******+***+*** 



034042 
034046 
034050 
034054 
034056 
034056 



004737 010332 

103407 

004737 020106 

010001 

104456 



JSR PC,WRTCHR 

BCS 23$ 

JSR PC.FATCHK 

MOV R0.R1 

ERRHRD ERRNO , WRTMSG . SFIMSG 



l ISSUE WRITE CHARACTERISTICS 

i BR, IF COMMANO ISSUED OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

iSAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CSERHRD 



CZTKHA TK- 
TEST 



2: 



SKIP TAP! 



ITkSfi " 



5070 

5071 
5072 
5073 
5074 
5075 
5076 
5077 
5078 
5079 
5080 
5081 
5082 
5086 



5087 

5088 
5089 
5090 
5091 
5092 
5093 
5094 
5095 
5096 
5097 
5098 
5099 
5100 
5104 



5105 

5106 
5107 
5108 
5109 
5110 
5111 
5112 
5113 
5114 
5115 
5116 
5117 
5118 



034060 
034062 
034064 
034066 
034066 



000333 
004760 
011666 

104406 



034070 
034074 
034076 
034100 
034104 
034110 
034110 
034112 
034114 
034116 
034120 
034120 



004737 
103411 
010004 
016501 
004737 

104456 
000334 
040130 
011700 

104406 



034122 
034126 
034130 
034134 
034136 
034140 
034144 
034144 
034146 
034150 
034152 
034154 
034154 
034156 
034164 
034170 
034176 



013701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000335 
037731 
016350 

104406 
012737 
012703 
013737 
012737 



034204 
034212 



012737 
012704 



010434 



000000 
020106 



036406 
000002 

020106 



000001 
000001 
003076 
000024 



140005 
036510 



Kll 
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SEQ 140 



036510 



23$: 



CKLOOP 



{LOOP IF SELECTED 



.WORD 
• WORD 
.WORD 

TRAP 



219 

WRTMSG 

SFIMSG 

C$CLP1 



. ********************************************************* 

jISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

5 

j ********************************************************* 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


JSR 


PC.FATCHK 



30*: 



ERRHRD ERRNO , T30RWN , PKTSSR 



CKLOOP 



{CALL TAPE REWIND COMMAND 

{BR, IF NO PROBLEM 

{GET PACKET ADDRESS 

{GET STATUS REGISTER 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 



{LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


220 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C*CLP1 



j ********************************************************* 

iGET EXTENOED STATUS REGISTER ZERO CXSTO) FROM MESSAGE BUFFER 

J 

J********************************************************* 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


*eiu,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T30B0T , EXPREC 



40$ 

036544 

64$ 
036512 65$ 
036516 



CKLOOP 

MOV 
MOV 
MOV 
MOV 



*1. .T30FCN 
#1,R3 

FREE.T30WB 
$20, ,T30SZ 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

,DOES EXP - REC'D 

{BR, IF EQUAL COK) 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 221 
.WORD T3060T 
.WORD EXPREC 

{LOOP IF SELECTED 

TRAP C$CLP1 

{SET "FILE" COUNTER AT 1 DECIMAL 

{ONE RECORD PER "FILE" 

{SET UP PACKETS' S WRITE BUFFER 

;SET RECORD SIZE AT 2000 BYTES 



i ********************************************************* 

{WRITE DATA,ACK,CVC-1 COMMAND 

I ********************************************************* 



MOV 0140005, T30PK3 
MOV *T30PK3,R4 



{WRITE DATA,ACK,CVC-1 COMMAND 
{SET UP R4 WITH PACKET ADDRESS 



CZTKHA TK-25 FRT END FUNC *4 
TEST 2: SKIP TAPE MARKS 



5119 
5120 
5121 
5122 
5123 
5124 
5125 
5126 
5127 
5128 
5129 
5130 
5134 
5135 
5136 
5137 



5138 

5139 
5140 
5141 
5142 
5143 
5144 
5145 
5146 
5147 
5146 
5149 
5150 
5151 
5152 
5153 
5154 
5155 
5156 
5157 
5161 



5162 

5163 
5164 
5165 
5166 
5167 
5168 
5169 
5170 
5171 



034216 
034222 
034224 
034226 
034230 
034234 
034240 
034244 
034250 
034254 
054256 
034260 



034264 
034264 
034266 

034270 
034272 
034274 
034274 
034276 
034300 
034304 



034306 
034314 
034320 
034324 
034330 
034334 
034340 
034342 
034344 
034 350 
034350 
034352 
034354 
034356 
034360 
034360 
034362 
034366 
034374 



013702 
00030? 
010301 
060201 
010177 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
0003,^6 
037060 
011700 



036544 



146642 
177776 
017124 
000000 
000200 



020106 







Lll 
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MOV 


T30FCN.R2 




SWAB 


R2 




MOV 


R3.R1 




ADD 


R2.R1 




MOV 


Rl,aFREE 




MOV 


R4.TSDBCR5) 




JSR 


PCWAITF 




MOV 


TSSR(R5),R1 




MOV 


*SSR,R2 




CMP 


R1.R2 




BEQ 


704 




JSR 


PC.FATCHK 



SEQ 141 



104406 

005203 

020327 000021 

001331 



70$: 



ERRSOFT ERRN0,T30WDD, PKTSSR 



CKLOOP 



INC 


R3 


CMP 


R3.*21 


BNE 


65$ 



jGET FILE COUNTER 

I MOVE TO UPPER BYTE 

j GET RECORD COUNTER 

j FILE COUNTER IN UPPFR, RECORD * LOW 

j MOV TO OUT PUT BUFFER 

j ISSUE COMMAND 

I WAIT FOR SSR TO SET 

j GET TSSR CONTENTS 

{SET UP EXPECTED 

j ARE THEY EQUAL 

jBR, IF OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

;SOFT ERROR, DON'T CARE ABOUT WRITE 

{COMMAND'S RESULTS - CHECKING SKIP 

j TAPE MARK COMMANO 

tTSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSOFT 
.WORD 222 
.WORD T30WOD 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{COUNT THE RECORD COUNTER DOWN 

,AT 20 YET 

i BR, IF NOT AT 20 RECORDS WRITTEN 



{WRITE TAPE MARK.ACK.CVOl COMMAND 

i 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
OO0337 
040252 
011700 

104406 
005237 
023727 
001273 



141011 
036510 
177776 
017124 
000000 
000200 



020106 



036510 



MOV 


#141011, T30PK3 


MOV 


4K30PK3.R4 


MOV 


R4,TSD6(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


4SSR.R2 


CMP 


R1.R2 


BEQ 


160* 


JSR 


PC.FATCHK 



160* 



ERRHRD ERRNO , T30WDC , PKTSSR 



CKLOOP 



036544 
036544 



000031 



INC 


T30FCN 


CMP 


T30FCN,*25, 


BNE 


64$ 



{WRITE TAPE MARK.ACK.CVC-1 COMMAND 

{SET UP R4 WITH PACKET ADDRESS 

{ISSUE COMMANO 

{WAIT FOR SSR TO SET 

{PICK UP TSSR 

i SET UP EXPECTED CSSR ONLY) 

{WAS STATUS GOOD 

j BR, IF TERMINATION WAS GOOD 

{INC AMD CHECK FOR MORE THAN 25 ERRORS 

{TSSR NOT CORRECT AFTER WRT TAPE M. 

TRAP CSERHRD 
.WORD 223 
.WORD T30WDC 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 

{COUNT THE "FILE" COUNTER DOWN 

{WRITE 25 FILES TO TAPE 

iBR, IF NOT AT 25 FILES WRITTEN 



{WRITE TAPE MARK,ACK,CVC»1 COMMAND 
i 



^ HA 2 ! K sf^ F W. 



• N fW^ 



C 04 
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SEQ 142 



5172 
5173 

5174 
5175 
5176 
5177 
5178 
5179 
5180 
5181 
5185 



5186 

5187 
5188 
5189 
5190 
5191 
5192 
5193 
5194 
5195 
5196 
5197 
5198 
5202 



5203 

5204 
5205 
5206 
5207 
5208 
5209 
5210 
5211 
5212 
5213 
5214 
5215 
5216 
5220 



5221 
5222 



034376 
034404 
034410 
034414 
034420 
034424 
034430 
034432 
034434 
034440 
034440 
034442 
034444 
034446 
034450 
034450 



034452 
034456 
034460 
034462 
034466 
034472 
034472 
034474 
034476 
034500 
034502 
034502 



034504 
034510 
034512 
034516 
034520 
034522 
034526 
034526 
034530 
034532 
034534 
034536 
034536 
034540 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000340 
040252 
011700 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000341 
040130 
011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000342 
037731 
016350 

104406 
012737 



141011 036510 

036510 

177776 

017124 

000000 

000200 



020106 



010434 



OOOOOO 
020106 



036406 
000002 

020106 



165$ 



MOV 0141011, T30PK3 

MOV 4T30PK3.R4 

MOV R4,TSDB(R5) 

JSR PC.WAITr 

MOV fSSR(R5),Rl 

MOV 0SSR.R2 

CMP R1.R2 

BEQ 165$ 

JSR PC FATCHK 

ERRHRD ERRN0.T30WDC, PKTSSR 



CKLOOP 



, WRITE TAPE MARK,ACK,CVC-1 COMMAND 

j SET UP R4 WITH PACKET ADDRESS 

j ISSUE COMMAND 

j WAIT FOR SSR TO SET 

{PICK UP TSSR 

{SET UP EXPECTED CSSR ONLY) 

{WAS STATUS GOOD 

{BR, IF TERMINATION WAS GOOD 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR NOT CORRECT AFTER WRT TAPE M. 



{LOOP IF SELECTED 



TRAP 


CiERHRD 


.WORD 


224 


.WORD 


T30WDC 


.WORD 


PKTSSR 



TRAP 



CJCLP1 



. ********************************************************* 

{ISSUE A REWINO TO TAPE DRIVE AND WAIT FOR SSR TO SET 

i 

{ ********* ************************************* *********** 



JSR 


PC, REWIND 


BCS 


170$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


JSR 


PC, FATCHK 


ERRHRD 


ERRN0.T30RWN, PKTSSR 



170$: CKLOOP 



j CALL TAPE REWINO COMMAND 

{BR, IF NO PROBLEM 

{GET PACKET ADDRESS 

iGET STATUS REGISTER 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{REWIND NOT ACCEPTED 

TRAP CIERHRD 
.WORD 225 
.WORD T30RWN 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 



I********************************************************* 

?GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

i 

| ********************************************************* 



MOV 


T306FR*6,R1 


MOV 


R1.R2 


BIS 


*BIT1,R2 


CMP 


R1.R2 


BEQ 


1801 


JSR 


PC, FATCHK 



ERRHRD ERRNO , T30B0T , EXPREC 



180$ 



000002 036544 



CKLOOP 
MOV 



02.T30FCN 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET BOT BIT IN EXPECTED 

{DOES EXP - REC'D 

{BR, IF EQUAL (OK) 

ixNC AND CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP CiERHRD 
.WORD 226 
.WORD T30B01 
.WORD EXPREC 

;L0OP IF SELECTED 

TRAP C$CLPl 

I SET TO NUMBER OF SKIP "FILES" 



CZTK8A TK-25 FRT END FUNC 04 
TEST 2: SKIP TAPE MARKS 



5223 
5224 
5225 
5226 
5227 
522fl 
5229 
5230 
5231 
5232 
5233 
5234 
5235 
5236 
5240 
5241 



5242 

5243 
5244 
5245 
5246 
5247 
5248 
5249 
5250 
5251 
5252 
5253 
5254 
5255 
5256 
5257 
5258 
5259 



034546 012703 036526 



034552 
034556 



034562 
034566 
034570 
034574 
034576 
034576 
034600 
034602 
034604 
034606 
034606 



5260 
5261 
5262 
5263 
5264 
5265 
5269 



034610 
034616 
034624 
034630 
034634 
034642 
034646 
034652 
034656 
034660 
034660 
034664 
034666 
034672 
034674 
034700 
034702 
034 706 
034710 
034714 
034716 
034 722 
034^4 
034 726 
034732 
034732 
034 734 
034736 



011337 
012704 



004737 
103407 
004737 
010001 

104456 
000343 
004760 
011666 

104405 



012737 
013737 
012704 
010465 
012737 
004737 
016501 
032701 
001017 

012727 
0000OO 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001352 
012702 
020102 
001406 
004737 

104456 
000344 
037004 



036376 
036360 



010332 
020106 



141010 
036544 
036510 
177776 
176750 
017124 
000000 
000200 



000250 
002116 
177772 
177756 
036546 
000200 

020106 
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SEQ 143 



HOV 



OT30IMV.R3 



j SET UP POINTER TO COMMAND TABLE 



MOV 
MOV 



CR3),T30ETM 
OT30PACKET.R4 



iGET NEXT COMMAND 

j SUBROUTINE NEEDS PACKET ADDRESS 



162*: 

.********************************************************* 

! ISSUE WRITE CHARACTERISTICS COMMAND 
s 

> 4*****4.********* ************************** ******** ******* 



JSR PC.WRTCHR 

BC5 188$ 

JSR PC.FATCHK 

MOV P0.R1 

ERRHDH trtSNO , WRTMSG , SF IMSG 



188$: CKLOOP 



tISSUt WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

{WRITE CHARACTERISTIC FAILED 

TRAP CJERHRD 
.UORD 227 
.WORD WRTMSG 
.WORD SFTMSG 

{LOOP IF SELECTED 

TRAP C$CLP1 



{ ****** *******************<•* ************ ****************** 
{SKIP TAPE MARK.ACK.CVC-1 COMMAND 

! 

j ********************************************************* 



03i.510 

036512 



036546 



189$ 
190$ 



MOV 


0141010. T30PK3 


MOV 


T30FCN.T30RB 


MOV 


0T30PK3.R4 


MOV 


R4.TSDBCR5) 


MOV 


065000, .T30DLY 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


BIT 


0SSR.R1 


BNE 


191$ 


OELA> 


250 



1 COMMAND 



BR, IF SSR 

CALL DELAY 



191$: 



DEC 


T30DLY 




jBUMP 


BNE 


190* 




;BR, 


MOV 


♦SSR.R2 




sSET 


CMP 


R1.R2 




{WAS 


BEQ 


19 >$ 




;BR, 


JSR 


PC.FATCHK 




{INC 


ERRHRD 


ERRN0.T30SKM 


PKTSSR 


jTSSR 



SKIP TAPE MARK.ACK.CVC 

SET UP NUMBER TO SKIP 

SET UP R4 WITH PACKET ADDRESS 

ISSUE COMMAND 

SET UP DELAY COUNTER 

UAIT FOR SSR TO SET 

PICK UP TSSR 

IS SSR SET YET 

IS SET 

ROUTINE 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
PNE 
DELAY ROUTINE 
IF MORE DELAY TO GO 
UP EXFECTED (SSR ONLY) 



•250.CPC)* 
O 

L$DLY f (PC)» 



-6CPC) 

. -4 

-22CPC) 

,-20 



STATUS GOOD 
IF TERMINATION UAS 
AND CHECK FOR MORE 
NOT CORRECT AFTER 



GOOD 
THAN 
SKIP 
TRAP 
.WORD 



25 ERRORS 
TAPE M. 

C$ERHRD 

228 



.WORD T30SKM 



CZTKNA TK 25 FRT END >UNC #4 
TEST 2: SKIP TAPE MARKS 



5? 70 

52 71 

5272 

f-273 
52 74 
5275 
5276 
5277 
5278 
52 79 
5280 
5281 
5282 
5283 
5287 



5288 

5289 
5290 
5291 
5292 
5293 
5294 
5295 
5296 
5297 
5296 
5299 
5300 
5301 
5302 
5303 
5304 
5305 
5306 
5307 
5308 
5312 



5313 

5314 
5315 
5316 

5317 
5318 
5322 



034 740 
034742 
034742 



034744 
034 750 
030 752 
034 756 
034760 
034 762 
034766 
034766 
034770 
034772 
034774 
034776 
034776 
035000 
035004 
0350X0 



035016 
035024 
035030 
035036 
035O42 
035O46 
035052 
035056 
035O6O 
035062 
035066 
035066 
035070 
035072 
035074 
035076 
035076 
035100 
035104 
035! 10 
035112 
035114 
035120 
035120 



011700 
104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000345 
040404 
016350 

104406 
012700 
004 737 
013737 



012737 
012704 
012737 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000346 
037305 
011700 

104406 
017701 
012702 
020102 
001006 
004737 

104456 
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SEQ 144 



,L00? IF SELECTED 



.WORD PKTSSR 
TRAP CICLP1 



036406 
100000 

020106 



177777 
020400 
003076 



036512 



140001 
036510 
000024 
177776 
017124 
OOOOOO 
000200 



020106 



036510 
036516 



IgET EXTENDED STATUS REGISTER 

I 


ZERO (XSTO) FROM MESSAGE BUFFER 




MOV 


T308FR*6,R1 




,PICK UP XSTO 




MOV 


FU.R2 




iSET UP EXPECTED 




BIS 


#BIT15,R2 




iSET TMK BIT IN EXPECTED 




CMP 


R1.R2 




lOOES EXP • RECD 




BEO 


1951 




iBR, IF EOUAL (OK) 




JSR 


PC.FATCMK 




lINC AND CHECK FOR MORE THAN 25 ERRORS 




ERRMRD 


ERRN0.T30TMK, 


EXPREC 


,TMK NOT SET AFTER WRT TAPE MARK 

TRAP CIERHRD 
.WORO 229 
.WORD T30TMK 
.WORD EXPREC 


1951: 


CKLOOP 






ilOOP IF SELECTED 

TRAP CICLP1 




MOV 


♦177777, RO 




iVALUt TO WRITTEN TO MEMOPY 




JSR 


PC.FILLMEM 




iFILL MEM WITH ALL ONES 




MOV 


FREE.T30RB 




iSTARTING READ BUFFER ADDRESS 


iREAD 


FORWARO.ACK.CVC-1 COMMAND 






MOV 


#140001, T30PK3 


jREAD F0RWAR0,ACK,CVC-1 COMMAND 




MOV 


♦T30PK3.R4 




iSET UP R4 UITM PACKET AOORESS 




MOV 


♦20. , T30SZ 




iSET UP RECORO SIZE IN PACKET 




MOV 


R4,TSDB(R5) 




I ISSUE COMMAND 




JSR 


PC.WAITF 




»WAIT FOR SSR TO SET 




MOV 


TSSR(R5),R1 




iGET TSSR CONTENTS 




MOV 


♦SSR.R2 




iSET UP EXPECTED 




CMP 


R1.R2 




lARE THEY EQUAL 




BEG 


2001 




|BR, IF OK 




JSR 


PC.FATCMK 




» INC ANO CHECK FOR MORE THAN 25 ERRWS 




ERRHRD 


ERRN0.T30RDF, 


PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 



200li CKLOOP 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 

230 

T30HD* 

PKTSSR 



1457 72 

1777^7 



020106 



MOV 


BFREE.R1 


MOV 


#177777, R2 


CMP 


R1.R2 


BNt 


320% 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0iT300TR t EXPREC 



iLOOP IF SELECTED 

TRAP CJCLPl 

iFIRST LOC IN READ BUFFER 
lEXPECTEO IF NO DATA TRANS. 
jDID ANY DATA GET TRANSFERRED 
iB^, IF NO DATA TRANS (GOOO) 
I INC ANO CHECK TOR MORE THAN 25 CRROR.*. 
j DATA TRANSFERRED ON READ TAPE MARK 

TRAP CtERMRD 



C12 



m^sftsm^w 



C 04 
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5323 

5324 
5325 
5326 
5327 
5328 
5329 
5330 
5331 
5335 



5336 

5337 
5338 
5339 
5340 
5341 
5342 
5343 
5344 
5345 
5346 
5347 
5348 
5352 



5353 

5354 
5355 
5356 
5357 
5358 
5359 
5360 
5361 
5362 
5363 
5364 
5365 
5366 
5370 



035122 

035124 
035126 
035130 
035130 
035132 
035136 
035140 
035142 
035146 
035152 
035154 
035156 
035162 
035162 
035164 
035166 
035170 
035172 
035172 



035174 
035200 
035202 
035204 
035210 
035214 
035214 
035216 
035220 
035222 
035224 
035224 



035226 
035232 
035234 
035240 
035242 
035244 
035250 
035250 
035252 
035254 

035256 



00034 7 
040760 
016350 

104406 
013702 
005202 
000302 
052702 
017701 
020201 
001406 
004737 

104456 

000350 
037132 
016350 

104406 



004737 
103411 
010004 
016501 
004737 

104456 
000351 
040130 

011700 

104406 



013701 
010102 
052 702 
020102 
001406 
004737 

104456 
000352 
037731 
016350 



?20$! 



036544 



000001 
145724 



020106 



APR -84 


08:13 PAGE 91 


J-6 


.WORD 
.WORD 
.WORD 


GEO 145 

231 

T300TR 

EXPREC 


CKLOOP 






(LOOP IF SELECTED 

TRAP 


CICLP1 


MOV 


T30FCN t R2 




»GET NUMBER OF SKIPS 




INC 


R2 




iSET TO CORRECT FILE VALUE 




SWAB 


R2 




iSWAP BYTE HALVES 




BIS 


♦6IT0.R2 




♦SET FOR RECORD #1 




MOV 


MFREE,R1 




iGET INFO FROM BUFFER 




CMP 


R2.R1 




,ARE THEY EQUAL 




BEQ 


228$ 




iBR, IF EQUAL COK) 




J5R 


PC.FATCHK 




lINC AND CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0,T30PTB 


EXPREC 


iRECORO POSITION WAS NOT CORR c CT 



2281 j CKLOOP 



TRAP 

.WORD 
.WORD 
.WORD 
I LOOP IF SELECTED 

TRAP 



CIERHRD 
232 
T30PTB 
EXPREC 

CICLP1 



ISSUE A REWINO TO TAPE DRIVE AND WAIT FOR SSR TO SET 
ft******************************************************** 



010434 



000000 
020106 



JSR 


PC, REWIND 


BCS 


2501 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


JSR 


PC.FATCHK 



ERRHRD ERRN0.T30RWN.PKTSSR 



2301: CKLOOP 



I CALL TAPE REWINO COMMANO 

I BR, IF NO PROBLEM 

l SAVE PACKET ADORESS 

iGET TSSR STATUS 

» INC AND CHECK FOR MORE THAN 25 ERRORS 

iREWINO NOT ACCEPTED 

1RAP CIERHRD 

.WORD 233 
.WORD T30RWN 
.WORD PXTSSR 

jl.OOP IF SELECTED 

TRAP CtCLPl 



GET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

*«444***« ******* ft**************************************** 



036406 
000002 

020106 



MOV 


T30BFR*6,R1 


MOV 


R1.R2 


BIS 


#em,R2 


CMP 


R1.R2 


BEQ 


2401 


JSR 


PC.FATCHK 



ERRHRD ERRNO » T3Q8QT , EXPREC 



jPICK UP XSTO 

iSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP • REC'D 

iBR, IF EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWINO 

TRAP CltRHRD 
.WORD 234 
.WORD T30B0T 
*WQRD EXPREC 













D12 


r^ K stfp K «pf%i^ c * 4 
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5371 035260 






240*} 


CKIOOP 




035260 


104406 










53 72 035262 


005723 






TST 


(R3)* 


5373 035264 


011301 






MOV 


(R3;,Rl 


53 74 035266 


020127 


177777 




CMP 


Rl, 0177777 


5375 035272 


001410 






BEQ 


330* 


5376 035274 


013701 


036544 




MOV 


T30TCN.R1 


5377 035300 


000241 






CLC 




5376 035302 


006101 






POL 


Rl 


5379 035304 


010137 


036544 




MOV 


R1.T30FCN 


5380 035310 


000137 


034552 




JMP 


182* 


5381 035314 






330* j 


CKLOOP 




035314 


104406 










5382 035316 








ENDSU6 




035316 












035316 


104403 











SEQ 146 



lLOOP IF SELECTED 



TRAP 



C*CLP1 



iPOINT TO NEXT POSITION 

jGET NEXT COMMAND ETC. 

i END OF TABLE MARKER 

,BR, IF AT END OF TARLE 

iGET NUMBER Of SKIPS 

! CLEAR THE CAHRY BIT 

jPUSH OVER ONE POSITION 

jPUT BACK IN COUNTER 

I JUMP TO MORE COMMANDS TO DO 

j LOOP IF SELECTED 

TRAP 



!<<<<<<<<<<< 



END SUBTEST 
L 10045 { 



CICLPl 



>>>>>>>>>>> 



TRAP 



C*ESU6 



CZTKHA TK-25 FRT END FUNC 44 
TEST 2: SKIP TAPE MARKS 
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SEQ 147 



5384 








I ♦ 










5385 








J 










5386 








j TEST 2 


, SUBTEST 3 






5387 








i 










5388 








J 










5389 








jVERIFIES THAT 


A SKIP TAPE MARKS REVERSE COMMANO 




5390 








i ISSUED 


WHILE THE TAPE IS POSITIONED AT 


BOT CAUSES 




5391 








{FUNCTION REJECT TERMINATION, WITH THE 


NON-EXECUTABLE 




5392 








j FUNCTION (NEF) 


ERROR BIT SET, 






5393 








\ 










5394 








I 










5395 








J 










5396 








I 










5397 








I 










5398 








1 - 










5399 


035320 








BGNSUB 




!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 




035320 












T2.3: 






035320 


104402 










TRAP 


C$BSUB 


5400 


035322 


004737 


041142 




JSR 


PC.T30REST 


jSET COMMANO PACKET 




5401 


035326 


005037 


036544 




CLR 


T30FCN 


i CLEAR FILE COUNTER 




5402 


035332 


004737 


041^34 




JSR 


PC t T30RT2 


jSET UP OTHER COMMANO PACKET 




5403 


035336 


0O4737 


041276 




JSR 


PC.T30RT3 


iSET UP OTHER COMMANO PACKET 




5404 


035342 


012737 


17675C 036546 


MOV 


♦65000. ,T30DLY 


j SET UP DELAY COUNTER 




5405 


035350 


004737 


016650 


10$: 


JSR 


PC.S0F1NIT 


»D0 INITIALIZE ON CONTROLLER 




5406 


035354 


103426 






BCS 


20$ 


j BR IF INIT WAS OK 




5407 


035356 








DELAY 


250 


j DELAY ROUTINE CALL 






035o56 


012727 


000250 








MOV 


♦250, (PC)* 




035362 


000000 










.WORD 







035364 


013727 


002116 








MOV 


L$DLY,CPC)f 




035370 


oooooo 










.WORD 


C 




035372 


005367 


177772 








DEC 


-6CPC) 




035376 


001375 










BNE 


. -4 




035400 


005367 


177756 








DEC 


-22CPC) 




035404 


001367 










BNE 


.-20 


5408 


035406 


005337 


036546 




DEC 


T300LY 


:BUMP COUNTER 




5409 


035412 


001356 






BNE 


10$ 


iBR, IF MORE COSTING TO DO 




5410 


035414 


004737 


020106 




JSR 


PC.FATCHK 


lINC AND CHECK FOR MORE THAN 25 


ERRORS 


5414 


035420 


010001 






MOV 


R0.R1 


i CONTENTS OF TSSR REGISTER 




5415 


035422 

035422 
035424 
035426 
035430 


104455 
000353 
003554 
011666 






ERRDF 


ERRNO.SFIERR, SFIMSG 


jFATAL ERROR TSSR WAS NOT UK 

TRAP 
.WORD 
.WORD 
.WORD 


C$ERDF 
235 

SFIERR 
SFIMSG 


5416 


035432 






20$: 










5417 


















5418 


035432 


012704 


036360 




MOV 


0T30PACKET.R4 


i SUBROUTINE NEEDS PACKET ADDRESS 


5419 

5420 
5421 


































5422 








i ISSUE 


WRITE CHARACTERISTICS COMMAND 






5423 


















5424 








,********************************************************* 




5425 


















5426 


035436 


004 737 


010332 




JSR 


PC.WRTCHR 


i ISSUE WRITE CHARACTERISTICS 




5427 


035442 


103407 






BCS 


23$ 


iBR, IF COMMAND ISSUED OK 




5428 


035444 


004 7 37 


020106 




JSR 


PC.FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


5432 


035450 


010001 






MOV 


R0.R1 


jSAVE CONTENTS OF TSSR 





CZTKHA TK-25 FRT END FUNC 44 
TEST 2: SKIP TAPE MARKS 



5433 



5434 

5435 
5436 
5437 
5438 
5439 
5440 
5441 
5442 
5443 
5444 
5445 
5446 
5450 



5451 

5452 
5453 
5454 
5455 
5456 
5457 
5458 
5459 
5460 
5461 
5462 
5463 
5464 
5468 



5469 

5470 
5471 
54 72 

5473 
54 74 

5475 
54 76 
54 7 7 
5478 
54 79 
5480 



035452 
035452 
035454 
035456 
035460 
035462 
035462 



035464 
035470 
035472 
035474 
035500 
035504 
035504 
035506 
035510 
035512 
035514 
035514 



035516 
035522 
035524 
035530 
035532 
035534 
035540 
035540 
035542 
035544 
035546 
035550 
035550 
035552 



035560 
035566 
035572 



104456 
000354 
004760 
011666 

104406 



004737 010434 

103411 

010004 

016501 000000 

004737 020106 

104456 
000355 
040130 
011700 

104406 



013701 036406 

010102 

052702 000002 

020102 

001406 

004737 020106 

104456 
000356 
037731 
016350 

104406 

012737 000001 



012737 141410 
012704 036510 
010465 177776 
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MACRO M1200 20-APR-64 08:13 PAGE 94-1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



SEQ 148 



036512 



036510 



23$ j 



jWRITE CHARACTERISTIC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CKLOOP 



,L0OP IF SELECTED 



TRAP 



CIERHRD 
236 

WRTMSG 
SFIMSG 

CSCLP1 



. ********************************************************* 

; ISSUE A REWIND TO TAPE DRIVE AND WAIT FOR SSR TO SET 

; 

; ********************************************************* 



JSR 


PC, REWIND 


BCS 


301 


MOV 


R0.R4 


MOV 


TSSRCR5),R1 


JSR 


PC.FATCHK 



30$ 



ERRHRD ERRNO , T30RWN , PKTSSR 



CKLOOP 



i CALL TAPE REWIND COMMAND 

I BR, IF NO PROBLEM 

jGET PACKET ADDRESS 

jGET STATUS REGISTER 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

tREUINO NOT ACCEPTED 



I LOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
23/ 

T30RWN 
PKTSSR 

CSCLP1 



}********************************************************* 

JGET EXTENOEO STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

I* ***«******************#************ ********************* 



MOV 


T306FR*6.R1 


MOV 


R1.R2 


BIS 


•BITl.RS 


CMP 


R1,R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



40* 



ERRHRD ERRNO , T3OB0T , EXPREC 

CKLOOP 

MOV 4U.T30WB 



iPICK UP XSTO 

j SET UP EXPECTED 

I SET BOT BIT IN EXPECTED 

jDOES EXP - REC'D 

jBR, IF EQUAL COK) 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWINO 





TRAP 


C*ERHRD 




.WORD 


238 




.WORD 


T3060T 




.WORD 


EXPREC 


lLOOP IF SELECTED 








TRAP 


CiCLPl 


iSET ♦ OT TM TO SKIP 













I SKIP TAPE MARK REVERSE , ACK ,CVC-1 COMMANO 

l 

j ********************************************************* 



MOV #141410, T30PK3 
MOV OT30PK3.R4 
MOV R4,TSDB(R5) 



i SKIP TAPE MARK REVERSE . ACK t CVQ*l CMD 
jSET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMAND 



^KHA TK 



2; SKIP 



;nd func *4 



TAPE FlARKS 



5481 
5482 
5483 
5484 
5485 
5486 
5490 



5491 

5492 
5493 
5494 
5495 
5496 
5497 
5498 
5499 
5500 
5501 
5502 
5503 
5504 
5508 



5509 
5510 



035576 
035602 
035606 
035612 
035614 
035616 
035622 
035622 
035624 
035626 
035630 
035632 
035632 



035634 
035640 
035642 
035646 
035650 
035652 
035656 
035656 
035660 
035662 
035664 
035666 
035666 
035670 
035670 
035670 



004? 3 7 

0165C ! 
012702 
020102 
001406 
004 737 

104456 
000357 
036721 
011700 

104406 



017124 
000000 
100206 



020106 



013701 036406 

010102 

052702 002000 

020102 

001406 

004737 020106 

104456 
0OO360 
040466 

016350 

104406 



104403 
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SEQ 149 



70$ j 



JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV *SSR!SC!BIT1!BIT2,R2 

CMP R1.R2 

BEQ 70$ 

JSR PC.FATCHK 

ERRHRD ERRN0.T30IBT.PKTSSR 



CKLOOP 



jWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

jSET UP EXPECTED 

t ARE THEY EQUAL 

I BR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

>TSSR INCORRECT AFTER WRITE DATA 

TRAP CiERHRD 



j LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



239 

T30IBT 

PKTSSR 

C$CLP1 



j ************************* ******* ************************* 

jGET EXTENOED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

i 

.***************.****************************************** 



MOV 


T306FR*6,R1 


MOV 


R1.R2 


BIS 


♦6IU0.R2 


CMP 


R1.R2 


BEQ 


180$ 


JSR 


PC.FATCHK 



180$ 



ERRHRD ERRNO . T30NEF , EXPREC 

CKLOOP 
ENOSUB 



{PICK UP XSTO 

i SET UP EXPECTEO 

iSET NEF BIT IN EXPECTED 

jDOES EXP - REC'O 

jBR, If EQUAL (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jTAPE NOT AT NEF 

TRAP C$EP' ,p O 
. WORD 24C 
.WORD T30NEF 
.WORD EXPPEC 

jLOOP IF SELECTED 

TRAP C$CLP1 

j<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 

L 10046: 

TRAP C$ESUB 
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SEQ 150 



5512 
5513 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5523 
5524 
5525 
5526 
552 7 
5528 



5529 
5550 
5531 
5532 
5533 
5534 
5535 
5536 



i * 



5537 
5538 
5539 
5543 
5544 



5545 
5546 
5547 
5548 
5S49 
5550 
5551 
5552 
5553 
5554 
5555 
5556 
5557 



035672 
035672 
035672 
035674 
035700 
035704 
035710 
035714 
035722 
035726 
035730 
035730 
035734 
035736 
035742 
035744 
035750 
035752 
035756 
035760 
035764 
035766 
035772 
035774 
035774 
035776 
036000 
036002 
036004 



104402 
004737 
005037 
004737 
0O4737 
012737 
004737 
103426 

012727 
000000 
013727 
000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000361 
003554 
011666 



{TEST 2, SUBTEST 4 



» VERIFIES THAT A SKIP TAPE MARKS REVERSE COMMANO 
{ISSUED UHILE THE TAPE IS POSITIONED JUST BEFORE THE 
{FIRST RECORD ON ON TAPE CBUT NOT AT B0T) CAUSES TAPE 
{STATUS ALERT TERMINATION, WITH THE REVERSE INTO BOT 
{CRIB) STATUS BIT SET. 

i 
i 
{ 
J 
i - 



BGNSUB 



041142 
036544 
041234 

041276 

176750 036546 

016650 



000250 
002116 
177772 
177756 
036546 
020106 



10$ 



JSR 


PC.T30REST 


CLR 


T30FCN 


JSR 


PC.T30RT2 


JSR 


PC.T30RT3 


MOV 


♦65000. >T30DLY 


JSR 


PC.SOFINIT 


BCS 


20$ 


DELAY 


250 



DEC 


T30DLY 


BNE 


10$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



20$: 



036004 012704 036360 



MOV 



♦T30PACKET.R4 



j >>>>>>>>>>>> 



BEGIN SUBTEST >>>>>>>>>>>> 

T2.4: 

TRAP C$BSUB 



{SET COMMAND PACKET 

{CLEAR FILE COUNTER 

{SET UP OTHER COMMAND PACKET 

tSET UP OTHER COMMAND PACKET 

{SET UP DELAY COUNTER 

{DO INITIALIZE ON CONTROLLER 

{BR IF INIT WAS OK 

{DELAY ROUTINE CALL 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 
tBUMP COUNTER 

{BR. IF MORE COUNTING TO DO 
jINC AND CHECK FOR MORE THAN 
{CONTENTS OF TSSR REGISTER 
{FATAL ERROR TSSR WAS NOT OK 

TRAP 
.WORD 
.WORD 
.WORD 



♦250, (PC)* 



LSDLY.CPCV 



-6(PC) 

. -4 

-22CPC) 
.-20 



25 ERRORS 



CSERDF 
241 

SFIERR 
SFIMSG 



{SUBROUTINE NEEDS PACKET ADDRESS 



! ISSUE WRITE CHARACTERISTICS COMMAND 

J 

( + *********** + ******* ****************************** ******* 



036010 004737 010332 

036014 103407 

036016 004737 020106 



JSR 
BCS 
JSR 



PC.WRTCHR 
23$ 

PC.FATCHK 



{ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 



CZTKhA TK-25 FRT END FUNC 44 
TEST 2: SKIP TAPE HARKS 



5561 
5562 



5563 

5564 
5565 
5566 
5567 
5568 
5569 
5570 
5571 
5572 
5573 
5574 
5575 
5579 



5500 

5581 
5582 
5583 
5584 
5585 
5586 
5587 
5588 
5589 
5590 
5591 
5592 
5593 
5597 



5598 

5599 
5600 
5601 
5602 
5603 
5604 
5605 
5606 
5607 
5608 



036022 
036024 
036024 
036026 
036030 
036032 
036034 
036034 



036036 
036042 
036 044 
036046 
036052 
036056 
036056 
036060 
036062 
036064 
036066 
036066 



036070 
056074 
036076 
036102 
036104 
036106 
036112 
036112 
036114 
036116 
036120 
036122 
036122 
036124 
036132 



010001 

104456 
000362 
004760 
011666 

104406 



004737 010434 

103411 

010004 

016501 000000 

004737 020106 

104456 
000363 
040130 

011700 

104406 



013701 
010102 
052702 
020102 
001406 
004737 

104456 
000364 
037731 
016350 

104406 
013737 

012737 



036406 
000002 

020106 



003076 
000400 
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SEQ 151 



036512 
036516 



23$: 



MOV R0.R1 

ERRHRD ERRNO , WRTMSG , SFIMSG 



CKLOOP 



I SAVE CONTENTS OF TSSR 
iWRITE CHAHACTERISTISC FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



j LOOP IF SELECTED 



TRAP 



CfERHRD 
242 

WRTMSG 
SFIMSG 

CICLP1 



} ********************************************************* 

I ISSUE A REWIND TO TAPE DRIVE ANO WAIT FOR SSR TO SET 

J 

I ********************************************** *********** 



JSR 


PC, REWIND 


BCS 


30$ 


MOV 


R0.R4 


MOV 


TSSR(R5),R1 


JSR 


PC.FATCHK 



30$: 



ERRHRD ERRNO . T30RWN , PKTSSR 



CKLOOP 



I CALL TAPE REWINO COMMANO 

j BR, IF NO PROBLEM 

iGET PACKET ADDRESS 

jGET STATUS REGISTER 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

j REWINO NOT ACCEPTED 



? LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


243 


.WORD 


T30RWN 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



j ********************************************************* 

IgET EXTENDED STATUS REGISTER ZERO (XSTO) FROM MESSAGE BUFFER 

♦ 

{ ***************6**** ************* ******* ****** *********** 



MOV 


T306FRf6,Rl 


MOV 


R1.R2 


BIS 


«BITL t R2 


CMP 


R1,R2 


BEQ 


40$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T30BOT . EXPREC 



40$ 



CKLOOP 

MOV 
MOV 



FREE.T30UB 
0256. .T30SZ 



jPICK UP XSTO 




,SET UP EXPECTED 




iSET BOT BIT IN EXPECTED 




l DOES EXP - REC'D 




j BR. IF EQUAL (OK) 




j INC AND CHECK FOR MORE THAN 25 


ERRORS 


;TAPE NOT AT BOT AFTER REWINO 




TRAP 


C$ERHRD 


.WORD 


244 


.WORD 


T30B0T 


.WORD 


EXPREC 


jLOOP IF SELECTED 




TRAP 


C$CLP1 


i SET UP GOOD WRITE BUFFER 




,SET LIP SIZE 





036140 012737 140005 036510 



I********************************************************* 

iWRITE DATA.ACK.CVC-1 COMMAND 

t 

I ********* ******* *** ******** ** ************* ******* ******** 

MOV #140005, T30PK3 i WRITE DATA,ACK»CVC»1 COMMANO 



CZTKHA TK-25 FRT END FUNC *4 
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SEQ 152 



5609 
5610 
5611 
5612 
5613 
5614 
5615 
5616 
5620 
5621 
5622 
5623 



5624 

5625 
5626 
'.627 
5628 
5629 
5630 
5631 
5632 
5633 
5634 
5635 
5636 
5637 
5638 
5639 
5640 
5641 
5645 



5646 

5647 

5648 

5649 

5650 

5651 

565 

565 ; 

56 5^< 

5655 

5656 

5657 

5658 

5659 

5663 



036146 
036152 
036156 
036162 
036166 
036172 
036174 
036176 



036202 
036202 
036204 
036206 
036210 
036212 
036212 



036214 
036222 
036230 
036234 
036240 
036244 
036250 
036254 
036256 
036260 
036264 
036264 
036266 
036270 
036272 
036274 
036274 



036276 
036302 
036304 
036310 
036312 
036314 
036320 
036320 



012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000365 
037060 
011700 

104406 



036510 
177776 
017124 
000000 
000200 



020106 



013701 036414 

010102 

052702 000001 

020102 

001406 

004737 020106 

104456 



MOV OT30PK3.R4 

MOV R4.TSDBCR5) 

JSR PC.WAITF 

MOV TSSR(R5),R1 

MOV *SSR,R2 

CMP R1.R2 

BEQ 70$ 

JSR PC.FATCHK 



ERRSOFT ERRNO. T30WDD, PKTSSR 



70$ 



CKLOOP 



j SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMANO 

jWAIT FOR SSR TO SET 

iGET TSSR CONTENTS 

I SET UP EXPECTED 

I ARE THEY EQUAL 

iBR, IF OK 

{INC ANO CHECK FOR MORE THAN 25 ERRORS 

{SOFT ERROR, DON'T CARE ABOUT WRITE 

I COMMANO' S RESULTS - CHECKING SKIP 

j TAPE MARK COMMAND 

jTSSR INCORRECT AFTER WRITE DATA 



j LOOP IF SF.LECTED 



TRAP 


C$ERSOFT 


.WORD 


245 


.WORD 


T3OW0D 


.WORD 


PKTSSR 



TRAP 



C$CLP1 



j ********************************************************* 

JSKIP TAPE MARK REVERSE, ACK.CVC-1 COMMAND 

I 

j ********************************* ************************ 



012737 0O0O01 036512 

012737 141410 036510 

012704 036510 

010465 177776 

004737 017124 

016501 OOOOOO 

012702 100204 

020102 

001406 

004737 020106 

104456 
OO0366 
036550 
011700 

104406 



MOV 


M.T30UB 


MOV 


♦ 141410, T30PK3 


MOV 


*T30PK3,R4 


MOV 


R4.TSD6CR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5) f Rl 


MOV 


♦SSRJBIT2JSC.R2 


CMP 


R1,R2 


BEQ 


160$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T30IBU , PKTSSR 



160$ j CKLOOP 



I* OF TM TO SKIP 

jSKIP TAPE MARK REVERSE, ACK.CVC-1 CMO 

jSET UP R4 WITH PACKET ADDRESS 

l ISSUE COMMAND 

I WAIT FOR SSR TO SET 

iPICK UP TSSR 

tSET UP EXPECTED CSSR AND SC ONLY) 

I WAS STATUS GOOO 

j BR, IF TERMINATION WAS GOOO 

I INC ANO CHECK for MORE THAN 25 ERRORS 

I TSSR NOT CORRECT AFTER WRT TAPE M. 



j LOOP IF SELECTED 



TRAP 


C$ERHRD 


.WORD 


246 


.WORD 


T30IBU 


.WORD 


PKTSSR 



TRAP 



CJCLP1 



j********************************************************* 

JCET EXTENDED STATUS REGISTER ZERO CXST3) FROM MESSAGE BUFFER 

I 

j ******** ******************************************** ***** 



MOV 


T306FRfl4,Rl 


MOV 


R1.R2 


BIS 


*6IT0,R2 


CMP 


R1.R2 


BEQ 


170$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO . T30RI8 , EXPREC 



iPICK UP XST3 

I SET UP EXPECTED 

jSET RIB BIT IN EXPECTED 

iDOES EXP - REC'D 

}BR, IF EQUAL COtO 

jINC ANO CHECK FOR MORE THAN 25 ERRORS 

jTAPE NOT AT RIB 

TRAP C$ERHRD 



CZTKHA TK-25 FRT END FUNC 04 
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036322 


000367 






036324 


036635 






036326 


016350 




5664 


036330 








036330 


104406 




5665 


036332 
036332 








036332 


104403 




5666 








5667 








5668 








5669 


036334 


004737 


017362 


5670 


036340 


103002 




5671 


036342 


000137 


032362 


5672 


036346 








036346 


104432 






036350 


002750 





170$: 



CKL.OOP 
ENDSUB 



i SUBTEST END 



400$ 



JSR 
8CC 
JMP 
EXIT 



PC.TSTLOOP 
400$ 
T30L00P 
TST 



SEQ 153 



.WORD 247 

.WORD T30RIB 

.WORD EXPREC 

j LOOP IF SELECTED 

TRAP CJCLP1 

!<<<<<<<<<<< END SUBTEST >>>>>>>>>>> 

L 10047: 

TRAP C*ESUB 



jDO WE NEED TO ITERATE TEST 

I BR, IF NO LOOP REQUIRED 

i EXECUTE AGAIN 

jALL DONE THIS TEST 

TRAP CJF-Xf'f 
.WORD L 10043 



^r 2 ! K si& F Wpf N l« c " 



5674 

5675 

5676 

5678 

5680 

5681 

5682 

5683 

5684 

5685 

5686 

5687 

5668 

5689 

5690 

5691 

5692 

5693 

5695 

5697 

5698 

5699 

5700 

5701 

5703 

570S 

5706 

5707 

5708 

5709 

5710 

5711 

5712 

5713 

5714 

5715 

5716 

5717 

5718 

5719 

5720 

5721 

5 722 

5723 

5724 

5725 

5726 

5727 

5728 

5729 

5730 

5731 

5732 



036352 
036360 
036360 
036362 
036364 
036366 
036370 
036370 
036372 
036374 
036376 
036400 



036462 

036470 
036470 
036472 
036474 
036476 
036500 
036510 
036510 
036512 
036512 
036514 
036516 

036520 
036520 
036521 
036522 
036524 



036526 
036526 
036526 
036530 
036532 
036534 
036536 
036540 
036542 
036544 
036546 



100004 
036370 
000000 
000012 

036400 
000000 
000024 
000000 



1000O6 
036520 
000000 
000006 



100205 

003076 
000000 
000000 



010 

200 

0000O0 

000000 



oooooo 
oooioo 

OO0200 
000300 
177777 
OOOOOO 
OOOOOO 
OOOOOO 
OOOOOO 



L12 
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j LOCAL STORAGE FOR THIS TEST 



SEQ 154 



.BLKB 


10-<.-T 


T30PACKET: 




.WORD 


100004 


.WORD 


T30DATA 


.WORD 





.WORD 


10. 


T30DATA: 




.WORD 


T30BFR 


.WORD 





.WORD 


20, 


T30ETK: .WORD 





T30BFRi .BLKW 


25. 



WRITE SUBSYSTEM MEMORY COMMAND PACKE' 



T30PK2 



.BLKB 10-<.-TUV2A£7> 





.WORD 


100006 




.WORD 


T30BF2 




.WORD 







.WORD 


6. 




.BLKB 


10-<.~TUV2A67> 


T30PK3: 








.WORD 


100205 


T30RB: 






T30WB: 


.WORD 


FREE 




.WORD 





T30SZ: 


.WORD 
.EVEN 





T306F2: 






T30BS0: 


.BYTE 


10 


T306S1: 


.BYTE 


200 


T30S2: 


.WORD 





T30S3: 


.WORD 






.EVEN 
j TAPE MOTION PACKET COMMAND VALUES 



T30IMV: 






T30RN; 








.WORD 


OOOOOO 




.WORD 


000100 




.WORD 


000200 




.WORD 


000300 




.WORD 


177777 


T30CNT; 


.WORD 





T30CNU: 


.WORD 





T30FCN; 


.WORD 





T30DLY: 


.WORD 






j COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH 

i ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
j CHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

> LENGTH OF MESSAGE BUFFER 
j SKIP TAPE MARK CONTROL 
j MESSAGE BUFFER 



ACK 



jURITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

j SIZE OF DATA PACKET 



{REREAD COMMAND, IE AND ACK 
{ADDRESS OF WRITE BUFFER 
iSIZE OF BUFFER (EXTENT) 



:BSELO AREA 
jBSELl AREA 
jSEL 2 AREA 
iDATA AREA 



{NEITHER EWB NOR ESS 

lEWB SET 

jESS SET 

{BOTH EWB AND ESS SET 

jENO OF DATA 

{TAPE TIMER COUNTER STORAGL 

{TAPE TIMER COUNTER STORAGE 

{FILE NUMBER COUNTER 

{DELAY COUNTER STORAGE 



AREA 
AREA 



CZTKHA TK-25 FRT END FUNC #4 
TEST 2 : SKIP TAPE MARKS 

5734 
5735 
5736 
5737 
5738 
5739 

5740 036550 124 123 

5741 036635 122 111 

5742 036721 124 123 

5743 037004 124 123 

5744 037C60 124 123 

5745 037132 124 141 

5746 037223 124 141 

5747 037303 124 123 

5748 037361 124 123 

5749 037443 124 123 

5750 037520 111 154 

5751 037601 127 122 

5752 037652 124 123 

5753 057731 124 141 

5754 037776 124 123 

5755 040053 124 123 

5756 040130 122 145 

5757 040177 104 162 

5758 040252 124 123 

5759 040331 103 126 

5760 040404 124 115 

5761 040466 123 113 

5762 040545 124 115 

5763 040623 124 115 

5764 040702 124 115 

5765 040760 116 117 

5766 041024 104 141 

5767 041121 123 153 
5768 

5769 
5770 
5771 
5772 
5773 
5774 
5775 

5776 041142 

5777 041142 

5778 041146 012701 036360 

5779 041152 012721 100004 

5780 041156 012721 036370 

5781 041162 005021 

5782 041164 012721 000012 

5783 041170 012721 036400 

5784 041174 005021 

5785 0411^6 012721 000024 

5786 041202 005021 

5787 041204 012711 000000 

5788 041210 012702 000030 

5789 041214 012762 177777 

5790 041222 005742 
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SEQ 155 



123 
102 
123 
123 
123 
160 
160 
123 
123 
123 
154 
111 
123 
160 
123 
123 
167 
151 
123 
103 
113 
111 
113 
113 
113 
040 
164 
151 



I LOCAL 
I - 



TEXT MESSAGES FOR TEST 



T30IBU 

T30RIB 

T30IBT 

T30SKM 

T30W00 

T30PTB 

T30TPB 

T3GRDF 

T30RDG 

T30W0F 

T30LOQ 

T30SSR 

T30WDE 

T3060T 

T30TM; 

T30TM2 

T30RUN 

T300FL 

T30U0C 

T30VCK 

T30TMK 

T30NEF 

T30RRM 

T30RRN 

T30RRP 

T300TR 

T300TA 

TST30ID: 

i ♦ 



.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
♦ASCTZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TSSR Incorrect After SKIP TAPE MARK REVERSE Into BOT' 

RIB Bit (XST3) Failed To Set Aftar Ravarae Into BOT' 

TSSR Incorrect After SKIP TAPE MARK REVERSE At BOT' 

TSSR Incorrect After SKIP TAPE MARK Co*n*and' 

TSSR Not Correct Aftar WRITE DATA Command' 

Tape Not Positioned On Correct Record After READ REVERSE' 

Tape Not Positioned On Sacond File First Record' 

TSSR Incorrect After READ FORWARD Into "File'" 

TSSR Incorrect After SPACE Command Into TAPE MARK' 

TSSR Not Correct After Illegal Mode Bits Set' 

Illegal Mode Bits, Failed To Set ILC Bit In XSTO' 

WRITE MISCELLANEOUS Command Not Accepted' 

TSSR Not Correct Aft«>- SKIP TAPE MARKS, At BOT' 

Tape Not At BOT Aftar REWIND Command' 

TSSR Not Correct Aftar SPACE FORWARD Command* 

TSSR Not Correct After SPACE REVERSE Command' 

Rawind (POSITION) Command tot Accepted' 

Drive 7 Select Failed To Set "OFL" In TSSR' 

TSSR Not Correct After WRITE TAPE MARK Command' 

CVC Sat, Didn»'t Reset VCK In Meaaaoe Buffer' 

TMK Not Set After WRITE TAPE MARK (RETRY) Command' 

SKIP TAPE MARKS, At BOT, Fa i lad To Sat NEF Bit' 

TMK Not Set After READ REVERSE Into TAPE MARK' 

TMK Not Set After SPACE REVERSE Into TAPE MARK' 

TMK Not Set After READ FORWARD Into TAPE MARK' 

NO Data Transferred On READ FORWARD' 

Data Compare Error, Data Read From Tope Not Equal To Written' 

ASCIZ 'Skip Tope Marks' 



{ROUTINE TO RESTORE COMMANO PACKET 
jURITE SUBSYSTEM MEMORY COMMAND 



TO START-UP (DEFAULT) VALUES 



036400 



T30REST: 




SAVREG 




MOV 


0T30PACKET.R1 


MOV 


010OOO4,(Rl)* 


MOV 


0T30DATA,(R1)* 


CLR 


(Rl) + 


MOV 


«10. ,CR1). 


MOV 


*T30BFR,CR1)* 


CLR 


CRD* 


MOV 


020. ,(R1)* 


CLR 


(Rl) + 


MOV 


*Q, (Rl) 


MOV 


^24. ,Rj 


64 $s MOV 


#177777, T300FRCR2) 


TST 


-CR2) 



{SAVE THE REGISTERS 

j START OF THE PACKF.T 

{WRITE SUBSYSTEM MEM. UITH ACK, 

{ADDRESS OF CHARAISTICS DATA BLOCK 

lEXTENOED ADDRESS 

j SIZE OF DATA BLOCK IN BYTES 

j ADDRESS OF MESSAGE BUFFER 

il.ENGTH OF MESSAGE BUFFER 



{SELECT DRIVE ZERO 
{NUMBER OF LOCATIONS 
{ALL ONES TO MESSAGE 
iNEXT LOCATION 



10 BE CLEARED 
BUFFER 



Si 













N12 


KHA TK-25 FR 
T 2; SKIP T 


T FND FUNC #4 
APE HARKS 
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5791 041224 


022702 


000000 




CMP 


40. ,R2 


5792 041230 


001371 






BNE 


64 J 


5795 041232 


000207 






RTS 


PC 


5794 












5795 












5796 041234 






T30RT21 






5797 041234 








SAVREG 




5798 041240 


012701 


036470 




MOV 


OT30PK2.R1 


5799 041244 


012721 


100006 




MOV 


4100006. CRD* 


5800 041250 


012721 


036520 




MOV 


OT3C3F2.CRD* 


5801 041254 


005021 






CLR 


CRD* 


5802 041256 


012721 


000006 




MOV 


06. , CRD* 


5803 041262 


005021 






CLR 


CRD* 


5804 041264 


012701 


036520 




MOV 


0T30BF2.R1 


5805 041270 


005021 






CLR 


CRD* 


5806 041272 


005011 






CLR 


CRD 


5807 041274 


000207 






RTS 


PC 


5808 041276 






T30RT3: 






5809 041276 








SAVREG 




5810 041302 


012701 


036510 




MOV 


OT30PK3.R1 


5811 041306 


005021 






CLR 


CRD* 


5812 041310 


C05021 






CLR 


CRD* 


5813 041312 


005021 






CLR 


CRD* 


5814 041314 


005011 






CLR 


CRD 


5815 041316 


000207 






RTS 


PC 


5816 041320 








ENDTST 




041320 












041320 


104401 











SEQ 156 



{CHECK R2 FOR DONE 
I KEEP GOING UNTIL DONE 
{RETURN 



{SAVE THE REGISTERS 

{START OF THE PACKET 

{WRITE SUBSYSTEM MEM, WITH ACK, 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

{POINT TO DATA SEL AREA 



{RETURN 

{SAVE REGISTERS 

{SET UP POINTER ADDRESS 

{COMMAND SPACE 

{ADDRESS OF DATA BLOCK 

{EXTENDED ADDRESS 

{SIZE OF DATA TRANSFER BLOCK 

{RETURN 



L1O043: 



TRAP 



C$ETST 



B13 
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5EQ 157 



5818 
5019 
5820 
5821 
582? 
5823 
5824 
5825 
5826 
582 7 
5828 
5029 
5830 

5831 
5832 
5833 
5838 
5839 
5840 
5541 
5842 
5843 
5844 
5645 



041322 
041322 
041322 
041326 
041332 
041340 
041344 
041350 
041356 



041362 



005037 
005037 
012737 
012700 
004737 
012737 
005037 



.SBTTL TEST 3i NO-OP ("CLEAN TAPE") ANO INITIALIZE 



'MIS TEST VERIFIES PROPER OPERATION UF THE NO-OP ("CLEAN TAPfc") ANO INITIALIZE 
COMMANO (SPACE REVERSE. ERASE, WRITE DATA) 

1*£ TEST CONSISTS OF THE FOLLOWING 2 SUBTESTS 



BGNTST 



002172 
003104 
0056 76 
046413 
017414 
000002 
045206 



002150 



002166 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


♦EPRT1.EPRTSW 


MOV 


#TST31I0,R0 


JSR 


PC.TSTSETUP 


MOV 


♦2.L00PCNT 


CLR 

i 


T31CNT 


i 

TJiLOOPt 





T3j t 
iCLEAR FATAL ERROR FLAG 
jHOLD OFF KTli 
jPRIMARt ERROR MESSAGE 
, ASCII MESSAGc TO IDENTIFY 
1 00 INITIAL TEST SETUP 
iPERFORM 2 ITERATIONS 
I CLEAR TAPE RECORD COUNTER 



TEST 



KSf M M l S*?uW »NSaMM*> M&fflflm 
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SEU 158 



584 7 
5848 
5849 
5850 
5851 

5853 
5854 
5855 
5856 
585/ 
5858 
5859 
5860 
5861 
5862 
5863 
58*4 
5865 
5866 
556 7 
5868 



5569 
5670 
5871 
58 72 
5873 
58 74 
5675 



58/6 
58 7/ 
5878 
5862 
5883 



5664 
5665 
5666 
568 7 
5668 
5892 
5893 



041562 

041362 

041362 

041364 

041370 

041374 

041400 

041406 

041412 

041414 

041414 

041420 

041422 

041426 

041430 

041434 

041436 

041442 

041444 

041450 

041452 

041456 

041460 

041460 

U41462 

041464 

041466 

041470 

041470 

041474 

041500 

041502 

041506 

041510 

041510 

04X512 



104402 
0O4737 
004737 
004737 
012737 
0O4737 
103426 

012727 
0O00OO 
013727 
000000 
00536 7 
001375 
00536 7 
001367 
005337 
001356 
004757 
010001 

104455 
000455 
003554 
011666 

012704 

004737 
10340/ 
0O4737 
0100O1 

104456 
000456 



TEST 5, SUBTEST 1 



046460 

046552 

046614 

176 750 043212 

016650 



000250 
002116 
177772 
177/56 
04 3212 
020106 



1015 



04 3030 
010332 

020106 



20*: 



VERIFIES THAT THE NO-OP COMMANO (CORRESPONDS TO THG CLEAN TAPE 
COMMAND) TERMINATES PROPERLY (NORMAL TERMINATION), STORES PROPER 
STATUS IN THE MESSAGE BUTFER (LIKE THE GET STATUS COMMANO), ANO 
INDEED DOES NOT MOVE TAPE. THE TAPE IS EIRST REWOUND AND 
WRITTEN WITH SEOUENCED TEST RECORDS. IT IS THEN REWOUNO AGAIN 
AND THE NO-OP COMMAND IS ISSUED, IT IS VERIFIED THAT THE TAPE 
IS STILL AT BOT AND THAT PROPER STATUS IS STORED. THE FIRST 
RECORD ON TAPE IS READ AND VERIFIED (TO CHECK TAPE POSITION ANO 
VERIFY THAT DATA WAS NOT CHANGED), THEN THE NO-OP COMMANO IS 
ISSUED AGAIN AND STATUS AND POSITION VERIFIED, 



0GNSU6 



!>>>>>>>>>>*> 



JSR 


PC.T31REST 


JSR 


PC.T51RT2 


JSR 


PC.T31RT3 


MOV 


♦65000., T31DLY 


JSR 


PC.SOflNIT 


BCS 


20 • 


DELAY 


250 



BEGIN SLfcTEST 
T5.1: 

TRAP 
COMMANO PACKET 
l*> OTHER COMMAND PACKET 
UP OTHER COMMAND PACKET 
UP DELAY COUNTER 
INITIMLI/E ON CONTROLLER 



>>>>>>•»>•«>»> 



iSET 

iSET 

iSET 

» SET 

j DO 

jBR IF INI T WAS OK 

jDELAY ABOUT .25 SEC 



CIBSie 







HOV 


#250, (PC)* 






.WORD 









MOV 


LIDLY.CPC)* 






.WORD 









DEC 


-6CPO 






BNE 


. 4 






DEC 


-22(PC) 






BNE 


.•20 


DEC 


T51DLY 


jBUMP COUNTER 




BNE 


101 


iBR, IF COUNTER NOT DONE 




JSR 


PC.FATCHK 


j INC AND CHECK FOR MORE THAN 25 


ERRORS 


hov 


R0.R1 


jCONTENTS Of TSSR REGISTER 




ERRDF 


ERRNO,SFIERR,SFIMSU 


IF'ATAL ERROR TSSR WAS NOT OK 








TRAP 


ClEROf 






.WORD 


301 






.WORD 


SFIERR 






.WORD 


SKIMSG 



MOV #T31PACKET,R4 

JSR PC,WRTCHR 

BCS 231 

JSR PC.FATCHK 

MOV R0.R1 

fcRRHRD £RRNO»WRTMSG,SFIMSU 



iSUCROUTINE NEEDS PACKET AOORESS 

I ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMANO ISSUED OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

jSAVE CONTENTS OT TSSR 

IWRITE CHARACTERISTIC FAILEO 

TRAP CltRHRU 

.WORD 300 
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SEQ 159 



5894 

5895 
5896 

5897 
5898 
5902 



5905 

5904 
5905 
5906 
5907 
5908 
5909 
5913 



5914 

5915 
5916 
5917 
5918 
5919 
5920 
5921 
5922 
5923 
5924 
5925 
5926 
5927 
5931 
5932 
5933 
5934 



5935 

5936 

5937 
5938 
5939 
5943 



041514 

041516 

0*1520 

041520 

041522 

041526 

041530 

041532 

041536 

041536 

041540 

041542 

041544 

041546 

041546 

O41550 

041554 

041556 

041562 

041564 

041566 

0415 72 

041572 

041574 

041576 

041600 

041602 

041602 

041604 

041612 

041620 

041624 

041630 

041634 

041642 

041646 

041652 

041656 

041662 

041664 

041666 



041672 
041672 
041674 
041676 
041700 
041702 
041702 
041 ^04 
041710 
041712 
041714 
041720 
041720 



004 760 
011666 

104406 
0O4737 
103407 
010004 
004737 

104456 
000457 
044544 

011700 

104406 
013701 
010102 
052702 
020102 
001406 
0O4737 

104456 
000460 
044215 
016350 

104406 
013737 
012737 
012704 
012700 
0O4737 
012737 
010465 
0O4737 
016501 
012702 
020102 
0O1406 
004737 



104457 
000461 

045100 
011700 

104406 
0O4737 
103407 
01OO01 
004737 

104456 



231: 



010434 
020106 



30$ j 



CKLOOP 

JSR 
BCS 
MOV 
JSR 
ERRHRD 



CKLOOP 



04 3056 
00OO02 

020106 



40$: 

003076 043162 

140005 043160 65$ ; 

043160 

000144 

02O400 

0O0144 043166 

177776 

017124 

OOOOOO 

000200 



020106 



PC. REWIND 

30$ 

R0.R4 

PC FATCHK 

ERRN0,T31RWN,PKTSSR 



MOV 


T31BFR*6,R1 


MOV 


R1.R2 


BIS 


#eiTl,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC, FATCHK 


ERRHRD 


ERRNO,T31B0T,EXPREC 



60$ i 



010434 



Q20106 



CKLOOP 

MOV FREE,T31W8 

MOV #140005, T31PK3 

MOV #T31PK3.R4 

MOV #100., RO 

JSR PC.FILLHEM 

MOV #100..T31SZ 

MOV R4.TS06CR5) 

JSR PC.UAITF 

MOV TSSR(R5).R1 

MOV *SSR,R2 

CMP R1.P2 

BEQ 80$ 

JSR PC. FATCHK 



ERRSOFT ERRN0.T31W0C, PKTSSR 



CKLOOP 

JSR PC.REUINO 

BCS 230$ 

MOV R0.R1 

JSR PC, FATCHK 

ERRHRD ERRN0.T31RWN.EXPREC 



.WORD WRTMSG 
.WORD SFIMSG 

(LOOP IF SELECTED 

TRAP C$CLP1 

i CALL TAPE REWINO COMMAND 

i BR, IF NO PROBLEM 

I SET UP REWINO PACKET ADDRESS 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I REWINO NOT ACCEPTED 



jLOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



C$£RHPD 
305 

T31RWN 
PKTSSR 

C$CLP1 



C$ERHRD 
304 

T31B0T 
EXPREC 

C$CLP1 



jPICK UP XSTO 

I SET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

»BR, IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 
STARTING WRITE BUFFER ADDRESS 
WRITE DATA,CVC-1,ACK COMMANO 
SET UP R4 WITH PACKET ADDRESS 
SET PATTERN IN CORRECT REGISTER 
FILL MEMORY WITH RECORD SIZE 
SET UP RECORD SIZE IN PACKET 
ISSUE COMMANO 
WAIT FOR SSR TO SET 
GET TSSR CONTENTS 
>ET UP EXPECTED 
ARE THEY EQUAL 
BR, IF OK 
INC ANO CHECK FOR 
SOTT ERROR. DON* T 



THAN 25 ERRORS 



MORE 

CARE ABOUT WRITB 

- CHECKING 



COMMAND' S RESULTS 

NO OP CO^AND 

TSSR INCORRECT AFTER WRITE DATA 

TRAP ClfcRSOf 

.WORD 305 
.WORD T31W0C 
.WORD PKTSSR 
lLOOP IF SELECTED 

1 RAP C $Cl Pi 

j CALL TAPE REUINO COMMANO 
j BR. IF NO PROBLEM 
jSMVE TSSR 

I INC ANQ CHECK FOR MQRE THAN 25 ERRORS 
I REWINO NOT ACCEPTED 

TRAP C$ERHRD 



E13 
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041722 


000462 






041724 


044544 






041726 


016350 




5944 


041730 








041730 


1O4406 




5945 


041732 


013701 


043056 


5946 


041736 


010102 




5947 


041740 


052702 


000002 


5948 


041744 


020102 




5949 


041746 


001406 




5950 


041750 


004737 


020106 


5954 


041754 








041754 


104456 






041756 


0O0463 






041760 


044215 






041762 


016350 




5955 


041764 








041764 


104406 




5956 


041766 


012737 


041012 


5957 


041774 


012704 


043160 


5958 


042000 


010337 


043166 


5959 


042004 


010465 


177776 


5960 


042010 


0O4737 


017124 


5961 


042014 


016501 


OOOOOO 


5962 


042020 


012702 


000200 


5963 


042024 


020102 




5964 


042026 


001406 




5965 


042030 


004737 


020106 


5969 


042034 








042O34 


lv>4456 






042036 


000464 






042040 


043413 






042O42 


011700 




5970 


042O44 








042044 


104406 




5971 


042046 


013701 


043056 


5972 


042052 


010102 




5973 


042054 


OS2702 


000002 


5974 


042060 


020102 




5975 


042062 


001406 




5976 


042064 


004737 


020106 


5980 


042070 








042070 


104456 






042072 


OO0465 






042074 


044215 






042076 


016350 




5981 


042100 








042100 


104406 




5982 


042102 


012737 


140001 


5983 


042110 


012704 


043160 


5984 


042114 


012737 


000144 


5985 


042122 


010465 


177776 


5986 


042126 


004737 


017124 


5987 


042132 


016501 


OOOOOO 


5988 


042136 


012702 


000200 


5989 


042142 


020102 




5990 


042144 


001406 





230*5 CKLOOP 

MOV 
MOV 
BIS 
CMP 
BEQ 
JSR 
ERRHRD 



240$: CKLOOP 



043160 2651} 



280$} CKLOOP 



T31BFR*6,R1 

R1.R2 

«BXT1,R2 

R1.R2 

240$ 

PC.FATCHK 

ERRN0.T31B0T.EXPREC 



MOV 


T31BFR*6,R1 


MOV 


R1.R2 


BIS 


•BIU.R2 


CMP 


R1.R2 


BEQ 


285$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T31B0T.EXPREC 



285$: CKLOOP 



043160 
043166 



MOV 


♦140001 .T31PK3 


MOV 


♦T31PK3.R4 


MOV 


♦100. ,T31SZ 


MOV 


R4.TSDBCR5) 


JSR 


PCWAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


290$ 



SEQ 160 



, UORD 306 
.WORD T31RWN 
.WORD EXPREC 

j LOOP IF SELECTEO 

TRAP CICLP1 

I PICK UP XSTO 

I SET UP EXPECTED 

,SET SOT BIT IN EXPECTED 

jDOES EXP • REC'D 

I BR. IF EQUAL (OK) 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

I TAPE NOT AT BOT AFTER REWINO 



lLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



MOV 


#041012, T31PK3 


jNO-OI 


MOV 


♦T31PK3.R^ 


j SET l 


MOV 


R3.T31SZ 


iSET i 


MOV 


R4.TSD6(R5) 


iissm 


JSR 


PC.WAITF 


jWAIT 


MOV 


TSSR(R5),R1 


jGET 


MOV 


♦SSR.R2 


jSET i 


CMP 


R1.R2 


lARE 


BEQ 


280$ 


iBR. 


JSR 


PC.FATCHK 


j INC 


ERRHRD 


ERRNO t T31RDF,PKTSSR 


iTSSR 



OP.CVC-1 COMMAND 
UP R4 WITH PACKET ADDRESS 
UP RECORD SIZE IN PACKET 
€ COMMANO 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

AND CHECK FOR MORE THAN 25 
INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
lLOOP IF SELECTED 

TRAP 
iPICK UP XSTO 
iSET UP EXPECTED 
iSET BOT BIT IN EXPECTED 
jDOES EXP - REC'D 
iBR, IF EQUAL (OK) 
j INC AND CHECK FOR MORE THAN 25 
»TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
WORD 
iLOOP IF SELECTED 

TRAP 
iREAO,ACK,CVC-l COTtiANO 
jSET UP R4 WITH PACKET ADORES* 
j SET UP RECORD SIZE IN PACKET 
i ISSUE COMMAND 
iWAIT FOR SSR TO SET 
jGET TSSR CONTENTS 
jSET UP EXPECTED 
,AR£ THE^r EQUAL 
iBR» IF OK 



CIERHRD 

307 

T31B0T 

EXPREC 

C$CLP1 



ERRORS 

CiERHRD 
308 

T31RDF 
PKTSSR 

C$CLP1 



ERRORS 

CtERHRD 
309 

T31B0T 
EXPREC 

C$CLP1 
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5991 


042146 


004737 


020106 


5995 


042152 








042152 


104456 






042154 


000466 






042156 


043214 






042160 


011700 




5996 


042162 








042162 


104406 




5997 


042164 


017701 


140706 


5998 


042170 


012702 


000144 


5999 


042174 


020102 




6000 


042176 


001406 




6001 


042200 


004737 


020106 


6005 


042204 








042204 


104456 






042206 


000467 






042210 


043341 






042212 


016350 




60O6 


042214 






6007 


042214 
042214 








042214 


104403 





ERRHRD 



290$: CKLOOP 



330* j 



ENOSUB 



PC.KATCHK 
ERRN0.T31RDE.PKTSSR 



MOV 


BFREE.R1 


MOV 


0100.. R2 


CMT 


R1.R2 


BEQ 


330 i 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T31WNG.EXPREC 



SEQ 161 



i INC ANO CHECK FOR MORE THAN 25 ERRORS 

jTSSR INCORRECT AFTER READ DATA 

TRAP CfERHRD 
,UORD 310 
.WORD T31RDE 
.WORD PKTSSR 

I LOOP IF SELECTED 

TRAP CICLP1 

jGET DATA READ 

jREAD EXPECTED 

»DID TAPE STAY POSITIONED 

I BR, IF EXPO • RECD 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE DATA NOT CORRECT 



TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
311 

T31WNG 
EXPREC 



))>>»>>>>>>>> ENO SUBTEST >>>>>>>>>>>> 

L10051: 

TRAP C$E5UB 



G13 
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SEQ 162 



6009 
6010 
6011 
6012 
6013 
6014 
6015 
6016 
6017 
6016 
6019 
6020 
6021 
6022 



6023 
6024 
6025 
6026 
6027 
6028 
6032 
6033 



6034 

6035 
6036 
6037 
6036 
6042 
6043 



6044 

6045 
6046 
6047 
6048 
6052 



6053 

6054 
6055 
6056 

6057 
6058 



042216 

042216 

042216 

042220 

042224 

042230 

C42234 

042240 

042242 

042246 

042250 

042250 

042252 

042254 

042256 

042260 

042260 

042264 

042270 

042272 

042276 

042300 

042300 

042502 

042304 

042306 

042310 

042310 

042312 

042316 

042320 

042322 

042326 

042326 

042330 

042332 

042334 

042336 

042336 

042340 

042344 

042346 

042352 

042354 



104402 
004737 
004737 
004737 
004737 
103407 
004737 
010001 

104455 
000470 
003554 
011666 

012704 
004 737 
103407 
004/37 
010O01 

104456 
000471 
004760 
011666 

104406 
004737 
103407 
010004 
004737 

104456 
0004 72 
C44544 

011700 

104406 
013701 
010102 
052702 
020102 
001406 



TEST 3, SUBTEST 2 



VERIFIES THAT THE INITIALIZE COMMAND OPERATES AS A NO-OP, 
ASSUMING NO MICROOIAGNOSTIC ERRORS ARE PRESENT (THEY WOULD 
ALREADY HAVE BEEN DETECTED IN PREVIOUS TESTS). THE TEST 
SEQUENCE IS SIMILAR TO THAT USED IN SUBTEST 1. 



BGNSUB 



046460 
046552 
046614 
016650 

020106 



JSR 


PC.T31REST 


JSR 


PC.T31RT2 


JSR 


PC.T31RT3 


JSR 


PC.SOTINIT 


BCS 


20$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



043030 
010332 

020106 



20$; 



MOV 


*T31PACKET t R4 


JSR 


PCWRTCHR 


BCS 


23* 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRHRD 


ERRNO.WFUMSG.SFIMSG 



23$: 



CKLOOP 



010434 
020106 



JSR 


PC, REWIND 


BCS 


301 


MOV 


R0.R4 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T31RWN.PKTSSR 



30$ j 



CKLOOP 



043056 
000002 



MOV 


T31BFR»6,R1 


MOV 


R1.R2 


BIS 


♦6IT1.R2 


CMP 


R1.R2 


BEQ 


40$ 



j>>>>>>>>>>>> 



>>>>>>>>>>>> 



BEGIN SUBTEST 
T3.2: 

TRAP CIBSUB 

»SET COMMAND PACKET 

iSET UP OTHER COMMANO PACKET 

I SET UP OTHER COMMAND PACKET 

i DO INITIALIZE ON CONTROLLER 

,BR IF INIT WAS OK 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j CONTENTS Of TSSR REGISTER 

jFATAL ERROR TSSR WAS NOT OK 

TRAP C$ERDF 
.WORD 312 
.WORD SFIFRR 
.WORD SFIMSG 

I SUBROUTINE NEEDS PACKET ADORESS 

, ISSUE WRITc CHARACTERISTICS 

I BR. IF COMMANO ISSUED OK 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j SAVE CONTENTS OF TSSR 

, WRITE CHARACTERISTIC 



FAILED 
TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
313 

URTMSG 
SFIMSG 



jLOOP IF SELECTED 

TRAP C$CLP1 
j CALL TAPE REWIND COMMAND 
j BR, IF NO PROBLEM 
i SET UP REWINO PACKET ADDRESS 
I INC AND CHECK FOR MORE THAN 25 ERRORS 
i REWINO NOT ACCEP'^D 



4 LOOP IF SELECTED 

jPICK UP XSTO 

jSET UP EXPECTED 

jSET BOT BIT IN EXPECTED 

I DOES EXP - REC'D 

I BR, IF EQUAL (OK) 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



C$ERHRD 
314 

T31RWN 
PKTSSR 

CSCLP1 



13 
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SEQ 163 



6059 042356 


004737 


020106 


JSR 


PC.FATCHK 


lINC AND CHECK r'OR MORE THAN 25 


ERRORS 


6063 042362 






ERRHRD 


ERRN0.T31B0T, EXPREC 


j TAPE NOT AT BOT AFTER REWIND 




042362 


104456 








TRAP 


C$ERH«D 


042364 


000473 








.WORD 


315 


042366 


044215 








.WORD 


T31B0T 


042370 


016350 








.WORD 


EXPREC 


6064 042372 




40$; 


CKLOOP 




lLOOP IF SELECTED 




042372 


104406 








TRAP 


C$CLP1 


6065 042374 


013737 


003076 043162 


MOV 


FREE.T31WB 


i STARTING WRITE BUFFER ADDRESS 




6066 042402 


012737 


140005 043160 65$; 


MOV 


♦140005 >T31PK3 


jWRITE DATA.CVC-l.ACK COMMAND 




6067 042410 


012704 


O43160 


MOV 


♦T31PK3.R4 


,SET UP R4 WITH PACKET ADDRESS 




6068 042414 


012700 


000144 


MOV 


♦loo, ,no 


(SET PATTf-RN IN CORRECT 


REGISTER 


6069 042420 


004737 


020400 


JSR 


PC.FILLKM 


iFILL h^>ORY WITS RECORD SIZE 




6070 042424 


012737 


0O0144 043166 


M3V 


♦ 100, t l: .SZ 


• set up ■ ■ f -:npnn jize in packet 




6071 042432 


010465 


177776 


HJv 


R4,TS0B(N!>) 


j ISbLC: CofSf .rtNu 




6072 042436 


004737 


017124 


JSR 


PC.WAITf 


iWAIT f f m SSR TO SET 




6073 042442 


016501 


000000 


MOV 


TSSRCR5),R1 


jGET TS-R CONTENTS 




6074 042446 


012702 


000200 


MOV 


♦SSR.R2 


i SET UP EXPECTED 




6075 042452 


020102 




CMP 


R1.R2 


i ARE THEY EQUAL 




6076 042454 


001406 




BEQ 


80$ 


1 BR, IF OK 




6077 042456 


004737 


020106 


JSR 


PC.FATCHK 


i INC ANO CHECK FOR MORE THAN 25 


ERRORS 


6081 










jSOFT ERROR, DON'T CARE ABOUT WRITE 


6082 










, COMMAND'S RESULTS - CHECKING 




6083 










j THE INITIALIZE COMMAND 




6084 042462 






ERRSOFT 


ERRN0.T31WDC.PKTSSA 


jTSSR INCORRECT AFTER WRITE DATA 


042462 


104457 








TRAP 


C$ERSOFT 


042464 


000474 








.WORD 


316 


042466 


045100 








.WORD 


T31W0C 


042470 


011700 








.WORD 


PKTSSR 


6085 042472 




80$; 


CKLOOP 




; LOOP IF SELECTED 




042472 


104406 








TRAP 


C$CLP1 


6086 042474 


0O4737 


010434 


JSR 


PC, REWIND 


I CALL TAPE REWINO COMMAND 




6087 042500 


103407 




BCS 


230$ 


t BR, IF NO PROBLEM 




6088 042502 


010001 




MOV 


R0,R1 


i SAVE TSSR 




6089 042504 


0C4737 


020106 


JSR 


PC.FATCHK 


i INC ANO CHECK FOR MORE THAN 25 


ERRORS 


6093 042510 






ERRHRD 


ERRN0.T31RWN.EXPREC 


iREWINO NOT ACCEPTED 




042510 


104456 








TRAP 


C$ERHRD 


042512 


0004 75 








.WORD 


317 


042514 


044544 








.WORD 


T31RWN 


042516 


016350 








.WORD 


EXPREC 


6094 042520 




230$: 


CKLOOP 




; LOOP IF SELECTED 




042520 


104406 








TRAP 


C$CLP1 


6095 042522 


013701 


043056 


MOV 


T31BFR»6,R1 


;PICK W XSfO 




6096 042526 


010102 




MOV 


R1.R2 


! SET UP EXPECTED 




6097 042530 


052702 


000002 


BIS 


♦BIT1.R2 


i SET BOT BIT IN EXPECTED 




6098 042534 


020102 




CMP 


R1.R2 


jDOES EXP - REC'D 




6099 042536 


001406 




BEQ 


240$ 


iBR, IF EQUAL COK) 




6100 042540 


004737 


020106 


JSR 


PC.FATCHK 


;INC ANO CHECK FOR MORE THAN 25 


ERRORS 


6104 042544 






ERRHRD 


ERRN0.T31B0T.EXPREC 


i TAPE NOT AT BOT AFTER REWINO 




042544 


104456 








TRAP 


CtERHRD 


042546 


0004 76 








.WORD 


318 


042550 


044215 








.WORD 


T31B0T 


042552 


016350 








.WORD 


EXPREC 


6105 042554 




240$: 


CKLOOP 




j LOOP IF SELECTED 




042554 


104406 








TRAP 


C$CLPi 


6106 042556 


012/37 


041012 043160 265$; 


MOV 


♦041012, TUPK3 


{.INITIALIZE, CVC-1 COMMAND 




6107 042564 


012704 


043160 


MOV 


♦T31PK3.R4 


4 SET UP R4 WITH PACKET ADDRESS 





113 



fi 



ITsI^^-aSA&^f*) a«St^ 


6106 042570 


010337 


043166 


6109 042574 


010465 


177776 


6110 042600 


004737 


017124 


6111 042604 


016501 


000000 


6112 042610 


012702 


000200 


6113 042614 


020102 




6114 042616 


001406 




6115 042620 


004737 


020106 


6119 042624 






042624 


104456 




042626 


000477 




042630 


043413 




042632 


011700 




6120 042634 






042634 


104406 




6121 042636 


013701 


043056 


6122 042642 


010102 




6123 042644 


052702 


000002 


6124 042650 


020102 




6125 042652 


001406 




6126 042654 


004737 


020106 


6130 042660 






042660 


104456 




042662 


0005OO 




042664 


044215 




042666 


016350 




6131 042670 






042670 


104406 




6132 042672 


012737 


140001 043160 


6133 042700 


012704 


043160 


6134 042704 


012737 


000144 043166 


6135 042712 


010465 


177776 


6136 042716 


004737 


017124 


6137 042722 


016501 


OOOOOO 


6138 042726 


012702 


000200 


6139 042732 


020102 




6140 042734 


001406 




6141 042736 


004737 


020106 


6145 042742 






042742 


104456 




042744 


000501 




042746 


043214 




042750 


0117O0 




6146 042752 






042752 


104406 




6147 042754 


017701 


140116 


6148 042760 


012702 


000144 


6149 042764 


020102 




6150 042766 


001406 




6151 042770 


004737 


020106 


6155 042774 






042774 


104456 




042776 


000502 




04 3000 


043260 




04 3002 


016350 




6156 043004 






6157 043004 







APR-84 
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MOV 


R3.T31SZ 






iSET I 


MOV 


R4.TSDBCR5) 






»issm 


JSR 


PC.WAITF 






(WAIT 


MOV 


TSSRCR5).R1 






jGET 


MOV 


0SSR.R2 






iSET l 


CMP 


R1.R2 






»ARE 


BEQ 


280$ 






»BR, 


JSR 


PC.FATCHK 






j INC 


ERRHRD 


ERRN0.T31RUF 


.PKTSSR 


jTSSR 



280$} CKLOOP 



MOV 


T31BFR*6.R1 


MOV 


RI.R2 


BIS 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


2851 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T31B0T. EXPREC 



285$: CKLOOP 



290$: CKLOOP 



SEQ 164 



UP RECORD SIZE IN PACKET 
6 COMMAND 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IF OK 

ANO CHECK FOR MORE THAN 25 
INCORRECT AFTER READ DATA 

TRAP 
.WORD 
.WORD 
.WORD 
lLOOP IF SELECTED 

TRAP 
iPICK UP XSTO 
iSET UP EXPECTED 
I SET BOT BIT IN EXPECTED 
jDOES EXP • REC'D 
tBR, IF EQUAL COK) 
i INC ANO CHECK FOR MORE THAN 25 
j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 



ERRORS 

C$ERHRD 
319 
T31RDF 
PKT5SR 

C$CLP1 



ERRORS 

CIERHRD 
320 
T31B0T 
EXPREC 



MOV 


#140001, T31PK3 


iREAD 


MOV 


0T31PK3.R4 




iSET l 


MOV 


#100. .T31SZ 




iSET 1 


MOV 


R4.TSDBCR5) 




jISSU 


JSR 


PC.WAITF 




»WAIT 


MOV 


TSSR(R5),R1 




iGET 


MOV 


#SSR,R2 




j SET ' 


CMP 


R1.R2 




jARE 


BEQ 


290$ 




iBR, 


JSR 


PC.FATCHK 




lINC 


ERRHRD 


ERRN0.T31RDE, 


.PKTSSR 


j TSSR 



j LOOP IF SELECTED 

TRAP C$CLP1 

,ACK CVC-1 COMMANO 
UP R4 WITH PACKET ADDRESS 
UP RECORD SIZE IN PACKET 
C COMMAND 

FOR SSR TO SET 
TSSR CONTENTS 
LP EXPECTED 
THEY EQUAL 
IF OK 

ANO CHECK FOR MORE THAN 25 ERRORS 
INCORRECT AFTER READ OATA 

TRAP 



l LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
321 

T31RDE 
PKTSSR 

C$CLP1 



MOV 


8FREE.R1 




iGET DATA READ 


MOV 


#100.. R2 




i READ EXPECTED 


CMP 


R1.R2 




jDID TAPE STAY 


BEQ 


330$ 




iBR. IF EXPD - 


JSR 


PC.FATCHK 




j INC ANO CHECK 


ERRHRD 


ERRN0.T31WNM, 


, EXPREC 


,TAPE POSITION 



330$: 



POSITIONED 

RECD 

FOR KORE THAN 25 ERRORS 

NOT CORRECT AFTER INIT 

TRAP CIERHRD 

, WORD 322 

.WORD T31WNH 

.WORD EXPREC 



ENOSUG 



; >»>>>>*>*>>> END SUBTEST >*>>>>>**•> ^»> 



J13 
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SEQ 165 



6158 
6159 
6160 
6161 
6162 
6163 
6164 



043004 

043004 104403 



043006 004737 017362 

043012 103002 

043014 000137 041362 



043020 
043020 



104432 



043022 003614 



L 10052; 



TRAP 



ctEsue 



i 
I 
i 


JSR 


PC.TSTLOOP 




BCC 


163* 




JMP 


T31L00P 


163* 


: EXIT 


TST 



jDO WE NEED TO ITERATE TEST 

iBR, IF NO LOOP REQUIRED 

j EXECUTE AGAIN 

j ALL DONE THIS TEST 

TRAP 
.WORD 



C*EXIT 
L10050- 



K13 
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SEQ 166 



6166 

6167 

6166 

6170 

6172 

6173 

6174 

6175 

6176 

6177 

6178 

6179 

6180 

6181 

6182 

6183 

6184 

6185 

6187 

6189 

6190 

6191 

6192 

6193 

6194 

6196 

6198 

6199 

6200 

6201 

6202 

620J 

6204 

6205 

6206 

6207 

6208 

6209 

6210 

6211 

6212 

6213 

6214 

6215 

6216 

6217 

6218 

6219 

6220 

6221 

6222 

6223 

6224 

6225 

6226 

622 7 



043024 
043030 
043030 
043032 
043034 
043036 
043040 
043040 
04304 2 
043044 
043046 
045050 



043132 
043140 
043140 
043142 
043144 
043146 

043150 
043160 
043160 
043162 
043162 
043164 
043166 



043170 
043170 
043171 
043172 
043174 



043176 
04 3200 
043202 
043204 



04 3206 
043210 
043212 



100004 
043040 
000000 
000012 

043050 
000000 
000024 
000000 



100006 
043170 
OOOOOO 
000006 



100005 

003076 
OOOOOO 
OOOOOO 



010 

200 

OOOOOO 

OOOOOO 



100205 
100605 
102205 
177777 



OOOOOO 
OOOOOO 
OOOOOO 



l * 



; LOCAL 


STORAGE 


FOR THIS TEST 


; - 


.BLKB 


10~<. -tuV2A67> 


T31PACKET; 






.WORD 


100004 




.WORD 


T31DATA 




.WORD 







.WORD 


10. 


T31DATA 


• 
• 






.WORD 


T31BFR 




.WORD 







.WORD 


20. 




.WORD 





T31BFR: 


.BLKW 


25. 


!wRITE 


SUBSYSTEM MEMORY COMMAN 




.BLKB 


10-<.-TUV2A67> 


T31PK2: 








.WORD 


100006 




.WORD 


T31BF2 




.WORD 







.WORD 


6. 




.BLKB 


10- <. -TUV2A&7> 


T31PK3: 








.WORD 


100005 


T31RB: 






T31WB: 


.WORD 


FREE 




.WORD 





T31SZ: 


.WORD 





• 


.EVEN 




i 
T31BF2: 






T31BS0: 


.BYTE 


10 


T31BS1; 


.BYTE 


200 


T31S2: 


.WORD 





T31S3: 


.WORD 






J 

.EVEN 
;TAPE MOTION PACKET COMMAND VALUES 



T31RN: .WORD 

T31W0R: .WORD 

T31C0N: .WORD 

.WORD 



T31CNT 
T31CNU 
T31DLY 



.WORD 
.WORD 
■ WORD 



100205 
100605 

102205 

177/77 



{COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH 

I ADDRESS OF CHARACTERISTICS BLOCK 

I STARTING VALUE OF BLOCK SIZE 
iCHARACTERISTICS DATA BLOCK 
I ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

j MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMANO. AND ACK 
jADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



j REREAD COMMAND, ANO ACK 
jADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



jBSELO AREA 
iBSELl AREA 
iSEL 2 AREA 
jDATA AREA 



{REREAD DATA (NEXT) 
{REREAD DATA RFTRY 
jWRITE CONTINOUS 
{END OF DATA 



jTAPE TIMER COUNTER 
{TAPE TIMER COUNTER 
{DELAY COUNTER 



STORAGE 
STORAGE 



AREA 
AREA 



L 1. 3 



CZTKHA TK-25 FRT END FUNC <M MACRO M1200 20-APR-84 08:13 
TEST 3 j NO-OP (''CLEAN TAPE") AND INITIALIZE 



PAGE 102 



SEQ 167 



6229 

6230 

6231 

6232 

6233 

6234 

6235 

6236 

6237 

6238 

6239 

6240 

6241 

6242 

6243 

6244 

624S 

6246 

6247 

6248 

6249 

6250 

6251 

6252 

6253 

6254 

6255 

6256 

6257 

6258 

6259 

6260 

6261 

6262 

6263 

6264 

6265 

6266 
6267 
6268 
6269 
6270 
6271 
6272 
6273 
6274 
6275 
6276 
627 7 
6278 
6279 
6280 
6281 
6282 
6283 
6284 
628b 



j LOCAL TEXT MESSAGES FOR TEST 
J - 



043214 
043260 
043341 
043413 
043462 
043557 
043641 
043711 
043766 
044047 
044103 
044215 
044310 
044410 
044467 
044544 
044613 
044666 
044735 
045010 
045100 
045153 
045226 
045301 
045370 
045452 
045534 
045622 
045710 

046031 
046106 
046213 
046316 
046413 



046460 
046460 
046464 
0464 70 
0464 74 
046500 
046502 
046506 



124 
124 
124 
124 
122 
120 
122 
124 
111 
122 
124 
124 
116 
122 
124 
122 
122 
124 
104 
124 
124 
103 
124 
127 
122 
122 
122 
122 
116 

124 
124 
124 
104 
116 



123 
141 
141 
123 
105 
117 
111 
123 
154 
105 
123 
141 
117 
105 
123 
145 
101 
123 
162 
123 
123 
126 
123 
122 
145 
145 
145 
145 
117 

123 
123 
123 
141 
117 



123 
160 
160 
123 
122 
123 
102 
123 
154 
122 
123 
160 
055 
122 
123 
16 7 
115 
123 
151 
123 
123 
103 
102 
111 
141 
141 
163 
141 
055 

123 
123 
123 
164 
055 



T31RDE 

T31WNH 

T31WNG 

T31RDF 

T31RRF 

T31SC: 

T31L0R 

T31W0F 

T31L0Q 

T31SSR 

T31W0E 

T31B0T 

T31TIM 

T31E0T 

T31TM: 

T31RWN 

T31RNC 

T31AM3 

T310FL 

T31W00 

T31W0C 

T31VCK 

T31BA: 

T31WSS 

T31L0N 

731LOP 

T31PBP 

T31TRL 

T31NEF 



.ASCIZ 
.ASCI? 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCTZ 

.MilCIZ 

.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

. ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCIZ 

.EVEN 



TAPE") ANO INITIALIZE Command, At BOT 

(BOT Not Set In XSTO)' 

S Erase Tape Not Long Enough' 



1 TSSR Not Correct After READ Command' 

'Tape Poeition Incorrect After INITIALIZE Command' 

'Tape Poeition Incorrect After NOP Command' 

•TSSR Incorrect After READ DATA Command' 

'REREAD Previous (Space Reverse, Read Forward) Command Failed' 

•POSITION (Space Command) Failed, TSSR Not Correct' 

'RIB NOT SET AFTER HEAD REVERSE INTO BOT' 

•TSSR Not Correct After Illegal Mode Bit* Set' 

•Illegal Mode Bite, Failed To Set ILC Bit In XSTO' 

•REREAD COMMAND Not Accepted' 

♦TSSR Not Correct After NO-OP ("CLEAN 

'Tape Not At BOT Aft«r REWIND Command 

•NO-OP ("CLEAN TAPE") ANO INITIALIZE'' 

'REREAD DATA OVER COT GAVE NO TAPE STATUS ALERT' 

•TSSR Not Correct After REREAD COMMAND Reject' 

'Rewind (POSITION) Commend Not Accepted' 

•RAM Error, Correct Data Pattern Not In Ram' 

'TSSR Init. Failed After REREAD COMMAND' 

'Drive 7 Select Failed To Set "OFL" In TSSR' 

•TSSR Not Correct After REREAD DATA Command, 

•TSSR Not Correct After REREAD 

'CVC Set, DioVV't Rteet VCK In 

'TSBA Not Correct After REREAD 

•WRITE SUBSYSTEM MEMORY Command Not Accepted (RAM Read)' 

'Reading Long R«cord Failed To Set RLL Bit In XSTO' 

'Reeding. Long Record Failed To iet RLS Bit In XSTO' 

'Reeidual Byte Count Incorrect After 5hort Record Read' 

•Reading Long Record Failed To Give Tape Statue Alert' 

'NO-OP ("CLEAN TAPE") ANO INITIALIZE, At First Record, Failed To Set RIB Bit 

•TSSR Not Correct After SPACE RECORDS Command' 

•TSSR Not Correct After NO-OP ("CLEAN TAPE") ANO INITIALIZE, Into BOT' 
•TSSR Not Correct After NO-OP ("CLEAN TAPE") AND INITIALISE Command* 
'Data Compare Error, Data Read From Tape Not Equal To Written' 
.ASCIZ 'NO-OP ("Clean Tape") And INITIALIZE* 



DATA Command 4 
Me»»eoe Buffer 
DATA Cot,*nand' 



SWB Bit Set 



012701 
012 721 
012721 
005021 

012721 
012721 



04 3030 
10000* 
0*30*. ■' 

000012 
043050 



T31SCF 
T31TSA 
T31WRF 
T31DTA 
TST31ID} 

i ♦ 

tROUTINE TO RESTORE COMMANO PACKET TO START-UP (DEFAULT) VALUES 

i WRITE SUBSYSTEM MEMORY COMMANO 

{ 

J 



.SAVE THE REGISTERS 

j START OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK , 

i ADDRESS OF CHARAISTICS DATA BLOCK 

jbXTENOED ADDRESS 

iSl/E OF DATA BLOCK IN Bt Tt3 

lADDRUSS OF MESSAGE BUFFCR 



T31RUST: 




SAVREG 




NCW 


CT31PACKET.R1 


MOV 


#100004 ,(R1)» 


MOV 


*T31DATA,(H1>* 


CLR 


(Rl)t 


MOV 


010. t (Rl). 


MOV 


AT31BFR.CR1)* 



res* 













M 1 5 


!irsVW-<&bm l fl J to&) m^MME so 


-APR-K4 
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6286 046512 


005021 






CLR 


CRD* 


6287 046514 


012721 


000024 




MOV 


*20. ,(R1)> 


6288 046520 


005021 






CLR 


(HI)* 


6289 046522 


012711 


000000 




MOV 


*0,(R1) 


6290 046526 


012702 


000030 




MOV 


#24. ,R2 


6291 046532 


012762 


177777 


043050 64$ j 


MOV 


#177777, T31BFRCR2) 


6292 046540 


005742 






TST 


-CR2) 


6293 046542 


022702 


000000 




CMP 


#0,R2 


6294 046546 


001371 






BNE 


64$ 


6295 046550 


000207 






RTS 


PC 


6296 












6297 












6290 046552 






T31RT2: 






6299 046552 








5AVREG 




6300 046556 


012701 


045140 




MOV 


OT31PK2.R1 


6301 046562 


012721 


100006 




MOV 


#100006, CRD* 


6302 046566 


012721 


043170 




MOV 


#T31BF2,(R1)* 


6503 046572 


005021 






CLP 


(Rl)* 


6304 046574 


012721 


000006 




MOV 


#6. .CRD* 


6305 046600 


005021 






CLR 


CRD* 


6306 046602 


012/01 


043170 




MOV 


#T31BF2,R1 


6307 046606 


005021 






CLR 


(Rl)* 


6308 046610 


005011 






CLR 


CRD 


6309 046612 


000207 






RTS 


PC 


6310 046614 






T31RT3: 






o311 046614 








5AVMEG 




6312 046620 


012701 


043160 




MOV 


#T31PK3.R1 


6313 046624 


005021 






CLR 


CRD* 


6314 046626 


005021 






CLR 


CR1 J* 


6315 046630 


005021 






CLR 


(Rl)* 


6316 046632 


005011 






CLR 


(Rl) 


6317 046634 


000207 






RTS 


PC 


6318 046636 








ENOTST 




046636 












046636 


104401 











SEG1 166 



{LENGTH OK MESSAGE BUFFER 



TO BE CLEARED 
BUFFER 



I SELECT DRIVE ZERO 
: NUMBER OF LOCATIONS 
j ALL ONES TO MESSAGE 
jNEXT LOCATION 
;AT END OF LOOP *fcT 
I KEEP GOING UNTIL DONE 
i RETURN 



I SAVE THE REGISTERS 

j START OF THE PACKET 

I WRITE SUBSYSTEM MEM. WITH ACK, 

i ADDRESS Of DATA BLOCK 

EXTENDED ADDRESS 

{SIZE OF DATA BLOCK IN BYTES 

; POINT TO DATA SEL AREA 



I RE TURN 

j SAVE REGISTERS 

j SET UP POINTER ADDRESS 

jCOMMANO SPACE 

I ADDRESS Of DATA BLOCK 

1 EXTENDED ADDRESS 

j SIZE OF DATA TRANSFER BLOCK 



{RETURN 



L 10050: 



TRAP 



CSETST 



N.13 



CZTKHA TK-25 FRT END KUNC *4 MACRO M1.200 
TEST 4: ERASE AND OPERATION INCOMPLETE 



6321 

6322 

6323 

6324 

6325 

6326 

6327 

6328 

6329 

6330 

6331 

6332 

6333 

6334 

6335 

6336 

6337 

6338 

6339 

6340 

6341 

6342 

6343 

6344 

6545 

6346 

634 7 

6348 

6349 

6350 

6351 

6352 

6353 

6354 
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, SBTTL TEST 4: Eras* And Operation Incomplete 

VERIFIES THAT AN ERASE COMMAND ISSUED WHEN THE TAPE 15 
POSITIONED AT BO! OPERATES PROPERLY AND ACTUALLY ERASES TAPE. 
THE FOLLOWING TEST SEQUENCE IS PERFORMED i 

1, THE TAPE IS FIRST REWOUND, SEVERAL TEST RECORDS ARE 
WRITTEN. AND THE TAPE IS REWOUND AGAIN. 

2. AN ERASE COMMAND IS ISSUED, WHICH SHOULD ERASE A NUMBER 
OF THE TEST RECORDS. 

3. NORMAL TERMINATION IS VERIFIED AND STATUS IS CHECKED 
(BOT SHOULD BE 0), 

4. A READ REVERSE COMMAND IS ISSUED. IT IS VERIFIED THAT 
THE COMMAND TERMINATES WITH t APE STATUS ALERT, THAT THE 
REVERSE INTO BOT CRIB) STATUS NIT IS SET, AND THAT NO 
DATA IS TRANSFERRED. THIS DEMONSTRATES THAT NO DATA 
WAS ENCOUNTERED IN THE AREA ERASED BY THE ERASE 
COMMAND . 



SEQ 169 



j THE TEST CONSISTS OF THE < r OLLQWING 3 SUBTESTS 



6355 
6356 

6357 

6358 
6359 
6364 
6365 
6366 
6367 
6368 
6369 
6370 
6371 
6372 
6373 
6374 
63/5 
6376 



046640 
046640 
04o640 
046644 
046650 
046656 
046662 
046666 
046674 



} - 



BGNTST 



00503 7 
005037 
012737 
012700 
004737 
012737 
005037 



002172 
003104 
005676 
052470 
017414 
000001 
051340 



002150 



002166 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


$EPRT1,EPRTS«J 


MOV 


*TST32ID,R0 


JSR 


PC.TSTSETUP 


MOV 


Ol.LOOPCNT 


CLR 


T32CNT 



T4 
ERROR 



FLAG 



j CLEAR FATAL 
{HOLD OFF KT11 

jPRIMARY ERROR MESSAGE 

{ASCII MESSAGE TO IDENTIFY TEST 

j DO INITIAL TEST SETUP 

{PERFORM 1 ITERATIONS 

;CLEAR TAPE RECORD COUNTER 



CHECK FOR 1ST PASS, IF 1ST PASS PRINT FAULT LIGHT MESSAGE 
ELSE SKIP MESSAGE 



046700 
046704 
046706 
046712 
046712 
046716 
046/22 
046724 



005737 
001012 
005237 

012746 
012746 
010600 
104415 



002722 

00?7?2 

05252/ 
000001 



TST 
BNE 
INC 
PRINTX 



FLLTSW 
51 

FLLTSW 
OFAULTM 



jCHtCK FAULT SWITCH 



jBR. IF NOT 1ST 
jIT IS 1ST PASS 
j*'THIS TEST MAY 



PASS 
SET SW FOR LATER 

ILLUMINATE FAULT LIGHT" 
MOV **"AIM TM. 

MOV * 1 , ■■ I SP ) 

MOV SP.'^O 

TRAP ;:iPNTX 



CSP) 



B 1 'I 



C7TKHA TK 25 FRT END FUNC M 
TEST 4j ERASE ANO OPERATION 



MACRO M1200 
INCOMPLETE 
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SEQ 170 



6377 
6370 
63/9 
6380 
6301 
638? 
6365 
6364 
6305 
6306 
63B7 
6500 
6309 
6390 
6391 
639? 
6393 
6394 
6395 
6396 
6397 



6390 
6399 
6400 
6401 
6402 
6403 
6404 



046 726 
046732 



6405 
6406 
6407 
6411 
6412 



6413 
6411 

6415 
6416 
64 1 7 
64?1 
642* 



046732 



046732 
046732 
0467J2 
046734 
046740 
046744 
046 750 
046756 
046762 
046 764 
046 764 
046770 
046/72 
046 776 
047000 
047004 
04 7006 
047012 
0*7014 
04 7020 
04 7022 
04 7026 
04 7030 
04 7030 
047032 
047034 
047036 
04 7040 
04/040 
047044 
04 7050 
04 7052 
04 7056 
04 7060 
04 7060 
04 706^ 



062706 000004 



51? 



ADD 



04, SP 



104402 
004737 
004737 
004737 
012737 
004737 
103426 

012727 
000000 
013727 

000000 
005367 
001375 
005367 
001367 
005337 
001356 
004737 
010001 

104455 
000621 
003554 
011666 

012704 

004737 
103407 
004737 
0KOO1 

104456 
0006«-V 



TEST 4, SUBTEST 1 



VERIFIES THAT A trmmm And 
'.HE TAPE IS POSITIONED AT 
TERMINATION, WITH THE NON 
ERROR BIT SET, 



32L00P? 



Operation Incomplete COMMAND ISSUED WHILE 
BOT CAUSES FUNCTION REJECT 
EXECUTABLE FUNCTION (NED 



BGNSUB 



052632 

052724 

052754 

176750 051344 

016650 



000250 
002116 
177772 
177756 
051344 
020106 



101; 



JSR 


PC.T32RES1 


JSR 


PC.T32RT2 


JSR 


PC.T32RT3 


MOV 


♦65000. , T32DLY 


JSR 


PC, SOT INI T 


BCS 


20* 


DELAY 


250 



DEC 


T320L* 


BNE 


101 


JSR 


PC.FATCHK 


MOV 


R0.R1 


ERRDF 


ERRNO.SF IERR.SFIMSU 



051150 

010332 

020X06 



£0H 



MOV #T32PACKET,R4 

JSR PC.WRTCHR 

BCS 251 

JSR PC.FATCHK 

MO V RO R 1 

tRRHRO ERRNQ, WH MSU» SE' IMStt 



!>>>>>>>>>>>> BEGIN SUBTEST >>>> 

T4.1: 

TRAP 

l SET COMMAND PACKET 

iSET UP OTHER COMMAND PACKET 

iSET UP OTHER COMMANO PACKET 

I SET UP DELAY COUNTER 

1 00 INITIALIZE ON CONTROLLER 

iBR IF INIT WAS OK 

iDELAY ABOUT ,25 SEC 

MOV 
.WORD 
MOV 
.WORD 
DEC 
BNE 
DEC 
BNE 



v >>>*>>> 



C«BSUB 



#250, (PO. 


L 101.1 , (PC )• 

6(PC) 

. 4 

-22(PC) 
. 20 



jBUMP COUNTER 

.BR, IF COUNTER NOT DONE 

I INC ANO CHECK FOR MOPE THAN 25 ERRORS 

.CONTENTS Of TSSR REGISTER 



iFATAL ERROR TSSR WAS 



NOT OK 
TRAP 

.WORD 
.WORD 
.WORD 



CIERDf 
401 

S* I ERR 
SF IMSG 



.SUBROUTINE NEEOS PACKET AOORESS 

.ISSUE WRITE CHARACTERISTICS 

iBR, IF COMMAND ISSUED OK 

1 INC AND CHECK FOR MORE THAN 25 ERRORS 

jSAvE CONTENTS OF TSSR 

IWJUTE CHARACTERISTIC KAUEO 

TRAP CMRHRO 

.WORD 40 J 



C'1.4 



H^\«iSk&*hJm.Mito incB#W 1200 



251 j 



04 7064 


004 760 




04 7066 


011666 




6423 04 7070 






04 7070 


104406 




6424 047072 


0O4737 


010434 


6425 047076 


103411 




6426 047100 


010004 




6427 047102 


016501 


000000 


6420 047106 


004737 


020106 


6432 047112 






047112 


104456 




047114 


000623 




0471 L6 


051530 




04 7120 


011700 




6433 047122 






047122 


104406 




6434 04 7124 


012703 


000400 


6435 047130 


013737 


003076 051302 


6436 047136 


012737 


140005 051300 


6437 047144 


012704 


051300 


643« 047150 


010337 


051306 


6439 047154 


010465 


177776 


6440 047160 


0O4737 


017124 


6441 047164 


016501 


000000 


6442 047170 


012702 


000200 


6443 0471/4 


020102 




6444 047176 


001406 




6445 047200 


004737 


020106 


6449 






6450 






6451 






6452 04 7204 






04 7204 


10445/ 




04 7206 


000624 




047210 


052366 




047212 


011700 




6453 047214 






04 7214 


104406 




6454 047216 


005723 




6455 04 7220 


020327 


001002 


6456 04 7224 


001351 




645 7 04 7226 


0O4737 


010434 


6456 04 7232 


103411 




6459 04 7254 


016501 


000000 


6460 04 7240 


010OO4 




6461 04 7242 


0O4737 


020106 


6465 047246 






04 7246 


104456 




04 7250 


000625 




04/252 


051530 




04 7254 


011700 




6466 04 7256 






04 7256 


104406 




646 7 04 7260 


013701 


051176 


6468 04 7264 


010102 




6469 04 7266 


052 702 


QOQ002 


6470 047 tfZ 


020102 





26»! 



27$ j 



281 ! 



5Qfi 



APR-S4 
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SEU 171 






.WORD 


WRTMSG 






.word 


SFIMSG 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CICLP1 


JSR 


PC.RF.WINO 


jCALL TAPE REWINO COMMANO 




BCS 


201 


|BR, IF NO PROBLEM 




liov 


R0,R4 


iSET UP REWINO PACKET ADDRESS 




HOV 


TSSR(R5),R1 


|CET TSSR CONTENTS 




JSR 


PC, FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRNO,T32RWN,PKTSSR 


iREWINO NOT ACCEPTEO 








TRAP 


CIERHRD 






.WORD 


403 






.WORD 


T3?RWN 






.WORD 


PKTSSR 


CKLOOP 




lLOOP IF SELECTED 








TRAP 


CtCLPl 


HOV 


♦256. ,R5 


iSTARTING RECWO SIZE 




MOV 


FREE.T32W8 


iSTARTING WRITE BUFFER ADDRESS 




MOV 


#140005, T32PK3 


jWRITE DATA,CVC-1,ACK COWAND 




MOV 


♦T32PK3.R4 


iSET UP R4 WITH PACKET ADDRESS 




MOV 


R3.T32SZ 


1 SET UP RECORD SIZE IN PACKET 




MOV 


R4.TS06CR5) 


j ISSUt COMMANO 




JSR 


PC.WAITF 


iWAIT FOR SSR TO SET 




MOV 


TSSR(R5),Rl 


iGET TSSR CONTENTS 




MOV 


♦S5R.R2 


l SET UP EXPECTED 




CMP 


R1.R2 


lARE THEY EQUAl 




BEQ 


28* 


|BR, IF OK 




JSR 


PC.FATCHK 


lINC ANO CHECK FOR MORE THAN 25 


ERRORS 






jSOFT ERROR, DON'T CARE ABOUT URITE 






iCOMMANO'S RESULTS CHECKING THE 






jERASE COMMANO 




bRRSOTT 


ERRN0.T32W0C, PKTSSR 


iTSSR INCORRECT AFTER WRITE DATA 






TRAP 


ClERSO T 






.WORD 


404 






.W<v*0 


T32W0C 






,V <0 


PKTSSR 



CKLOOP 

TST 
CMP 
BNE 

JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 



CKl OOP 



lLOOP IF SELECTED 



(R3)» 

R3,#514. 

2/1 

PC, REWIND 

301 

TSSR(R5),R1 

R0.M4 

PC,* ATCHK 

ERRNU.T32RWN. PKTSSR 



TRAP 



CtCLPl 



iBUMP RECORD COUNTER 

I A T MAX SI7E YET 

iBR, IF NOT AT ENO OF LOOP 

jCALL fAPE REWINO COMMANO 

)BR, IF NO PROBLEM 

iGET TSSR CONTENTS 

j SET UP REWIND PACKET AOORLSS 

j INC ANO CHECK FOR MORE THAN 25 ERROR 1 

jREWINO NOT ACCEPTED 



MOV 


T32BFN**,R1 


MOV 


R1.R2 


BIS 


♦BIU,R2 


CMP 


R1,R<2 



TRAP 


CURHHD 


.WORD 


405 


.WORD 


T32RWN 


.WORD 


PKTSSR 


il OOP I^ SELECTED 




TRAP 


CJCUPX 


jPICK UP XSTO 




iSET UP EXPECTED 




jSF T ROT BIT IN I XPtCTEO 




iDOES EXP * REC'D 





D'1.4 

mW^ft&kffteMilM luMM n2 °° 20" APRM 8! 1J PAGE 104-3 



SEQ 172 



6471 047274 


001406 




647? 047^76 


004737 


020106 


6476 04V 302 






04 7302 


104456 




04 7304 


00O626 




047306 


052216 




047310 


0X6350 




6477 047312 






047312 


104406 




6478 04731.4 


012737 


140411 051300 


6479 047332 


012704 


051300 


6480 04 7. ',26 


01O465 


17 7776 


6481 047332 


004737 


017124 


646? 047336 


016501 


000000 


6483 047342 


012702 


000200 


6484 047346 


020102 




6485 047350 


001406 




6486 04 7352 


004 737 


020106 


6490 047356 






047356 


104456 




047360 


0OO627 




047362 


051646 




047364 


011700 




6491 047366 






04 7366 


1O4406 




6492 047370 


013701 


051176 


6493 047374 


010102 




6494 047376 


042 702 


000002 


6495 04 7402 


020102 




6496 047404 


001406 




6497 047406 


0O4737 


020106 


6501 04/412 






047412 


104456 




047414 


000630 




047416 


052216 




047420 


016350 




6502 047422 






047422 


104406 




6503 047424 


013737 


003076 051302 


65'J4 047432 


012737 


140401 05130O 


6505 047440 


012737 


000400 051306 


6506 04 7446 


012704 


051300 


6507 047452 


010465 


177776 


650« 047456 


0O4737 


017124 


6509 04 7462 


016501 


000000 


6510 047466 


012702 


100204 


6511 047472 


02010^ 




6512 047474 


001406 




6513 047476 


004 737 


020106 


6517 04 7502 






04 7502 


104456 




04 7504 


0OO651 




04/506 


052141 




04/510 


011700 




6518 04/512 






04/512 


104406 




6519 04 7514 


013/01 


051204 



40$} 



50*? 



BEQ 
JSR 
ERRHRD 



CKL00P 

MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



40$ 

PC,FATCHK 

ERRN0.T32B0E.EXPREC 



551} 



CKLOOP 



•140411 .T32PK3 

♦T32PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),Rl 

#SSR,R2 

R1.R2 

501 

PC,FATCHK 

ERRN0.T32ERA.PKTSSR 



MOV 


T32BFR»6,Rl 


MOV 


R1.R2 


BIC 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


55$ 


JSR 


PC,FATCHK 


ERRHRD 


ERRN0,T32B0E,EXPREC 



180$ i 



CKl OOP 

MOV T32BFR.14.R1 



iBR, IF EQUAL (OK) 
jINC ANO CHECK FOR 
I TAPE AT BOT AFTER 



MOKE THAN 2j 

ERASE 

TRAP 
.WORD 
.WORD 
.WORD 



C$ERhRO 
406 
T32B0E 
EXPREC 



jLOOP IF SELECTED 

TRAP CICL'-1 

I ERASE TAPE,CVC"1,ACK LJMHANO 
,SET UP R4 WITH PACKET ADDRESS 
, ISSUE COMMAND 
(WAIT FOR SSR TO SET 
iGET TSSR CONTENTS 

UP EXPECTED 

THEY EQUAL 

IF OK 

AND CHECK FOR MORE THAN 25 ERRORS 



jSET 
,ARE 
{ BR. 

I INC 
j TSSR 



INCORRECT AFTER ERASE DATA 



TRAP C$ERHRD 

.WORD 40/ 
.WORD T32ERA 
.WORD PKTSSR 

,LOOP IF SELECTED 

TRAP C$CLP1 

jPICK UP XSTO 

i SET UP EXPECTED 

i SET BOT BIT IN EXPECTED 

,DOCS EXP » REC'D 

iBR. IF EQUAL (CX) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

i TAPE NOT AT BOT AFTER REWINO 

TRAP 



i LOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



C$E«HRD 
408 
T32BOE 
EXPREC 

C$CLP1 



MOV 


FREE.T32RB 


ADOR 


MOV 


#140401, TS2PK3 


READ 


MOV 


♦256..T32S/ 


SET 


MOV 


♦T32PK3.R4 


SET 


MOV 


N4 f TS0e(R5) 


ISSU 


JSR 


PC.WAITF 


WAIT 


MOV 


TSSR(R5).R1 


GET 


MOV 


♦SbR!SC!BIT2,R2 


SET 


CMP 


R1.R2 


APE 


BEQ 


180$ 


BR, 


JSR 


PC.FATCW 


INC 


ERRHRD 


ERRN0,T32TSA,PKTSSR 


TSSR 



SS OF BUFFER 

RE VERSE, ACK.CVC-1 COMMAND 
UP THE SIZE Of RECORD 
UP R4 WITH PACKET ADDRESS 
E COMMANO 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED TAPE 
TH£Y EQUAL 
IF OK 

ANO CME r .K FOR MORE THAN 
INCORRECT AFTER READ DATA 

TRAP 
.WORD 
. WORD 
.WORD 
1 1 OOP IF SELI CTEU 

TRAP 
I tit T XST5 STATUS WORD 



ALERT 



5 ERRORS 

CU.RHRI 

409 

T VTsA 

PKTSSR 

C*CLP1 



El 4 



C7TKHA TK-25 FRT END FUNC #4 MACRO M1200 

TEST 4: ERASE ANO OPERATION INCOMPLETE 



6520 


047520 


010102 




6521 


04 7522 


052702 


000001 


6522 


0*7526 


020102 




6523 


047530 


001406 




6524 


047532 


004737 


020106 


6528 


047536 








047536 


104456 






047540 


000632 






047542 


051766 






047544 


016350 




6529 


047546 






6530 


04 7546 

04 7546 








047546 


104403 
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MOV R1.R2 


J SET 


BIS ♦BIT0.R2 


iSET 


CMP R1.R2 


lARP 


BEQ 190$ 


iBR. 


JSR PC.FATCHK 


lINC 


ERRHRD ERRN0.T32RIB.EXPREC 


|RIB 



190$: 



EN03UB 



UP EXPECTED 

TH€ RIB BIT 

THEY EQUAl 

IF EQUAL (GOOD) 

ANO CHECK FOR MORE 

SHOULD BE SET 



SEQ 173 



THAN 25 ERRORS 



TRAP 
.WORD 
.WORD 
.WORD 



CtERHRD 
410 
T32RIB 
FXPREC 



j >>>>>>>>>>> > 



END SUBTEST 
L 10054: 

TRAP 



*•»"»>>*'>•>*>•»» 



CIESU8 



\- 1 4 



CZTKHA TK 25 FRT END F UNC $4 


TEST 4; 


ERASE ANO OPERATION Ih 


655.2 








6533 








6534 








6535 








6536 








6537 








6536 








6539 








6540 








6541 








6542 








654 3 








6544 








6545 








6546 








654 7 








6548 








6549 








6550 








6551 








6552 








6553 








6554 








6555 








6556 








6557 








6558 








6559 








6560 








6561 








656? 








6563 








6564 








6565 








6566 


04 7550 
04 7550 








O4 7550 


104402 




6567 


047552 


004737 


052632 


6566 


04J556 


004737 


052724 


6569 


047562 


004 737 


052 754 


6570 


047566 


004737 


016650 


6571 


047572 


105407 




6572 


04 7574 


004737 


020106 


6576 


04 7600 


010O01 




6577 


O4 7602 








04 7602 


104455 






047604 


00C633 






04 7606 


003554 






047610 


011666 




6b 78 


047612 






65 79 


047612 


012704 


051150 


6580 


04 7616 


004 737 


010332 


6581 


04 7622 


103407 




658? 


04/624 


004 7 5 7 


020106 


6586 


047630 


010001 




6587 


04/63? 








04 7632 


104456 





MACRO Ml 200 
;OMPLETE 
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SEC) 174 



TEST 4, SUBTEST 2 



VERIFIES THAT AN ERASE COMMAND EXECUTED WHEN THE TAPE IS NOT 
POSITIONED AT BOT OPERATES PROPERLY ANO DOES NOT CORRUPT 
PREVIOUS TAPE RECORDS, THE TEST SEQUENCE IS: 

1, THE TAPE IS FIRST REWOUNO, SEVERAL TEST RECORDS ARE 
WRITTEN, ANO THE TAPE IS REWOUNO AGAIN. 

2, A SPACE RECORDS FORWARD COMMANO IS ISSUED TO MOVE THE. 
TAPE OFF OF BOT ANO SKIP OVER THE FIRST SEVERAL. 
RECORDS. 

3, AN ERASE COMMANO IS ISSUED, WHICH SHOULD ERASE A NW1BF.R 
OF THE TEST RECORDS. 

4, NORMAL TERMINATION IS VERIFIED ANO STATUS IS CHECKED. 



5. 



A READ REVERSE COMMANO IS ISSUED. IT IS VERIFIED THAT 
NORMAL TERMINATION IS ACCOMPLISHED ANO THAT THfc DATA 
TRANSFERRED CORRESPONDS TO THAT FOR THE EXPECTED 
RECORD. THIS DEMONSTRATES THAT NO DATA WAS ENCOUNTERED 
IN THE AREA ERASED BY ]HE ERASE COMMANO, ANO THAT THE 
PREVIOUS RECORD WAS NOT CORRUPTED. 



BGNSUB 



JSR 


PC.T32REST 


» SET 


JSR 


PC.T32RT2 


iSET 


JSR 


PC.T32RT3 


»SET 


JSR 


PC.SOFINIT 


iDO 


BCS 


20$ 


jBR 


JSR 


PC.FATCHK 


j INC 


MOV 


RO.ftl 


iCON 


ERRDF 


ERRNO.SFIERR.SFIMSti 


jFAT 



20$: 



MOV 0T32PACKET.R4 

JSR PC.WRTCHR 

BCS 23$ 

JSR PCFATCHK 

MOV R0.R1 

ERRHRD ERRNO.WRTMSG.SFIMSG 



!>>>>>>>>>>>> BEGIN SUBTEST >>>>>>>>>>>> 

T4.2: 

TRAP C$BSUB 
COMMANO PACKET 
UP OTHER COMMANO PACKET 
UP OTHER COMMAND PACKET 
INITIALIZE ON CONTROLLER 
IF INIT WAS OK 

ANO CHECK FOR MORE THAN 25 ERRORS 
TENTS OF TSSR REGISTER 
AL ERROR TSSR WAS NOT OK 

TRAP CIERDF 
. UOPn 4 \ i 

,UOKD Si TERR 
.WORD "iFTMSCi 

1 SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

jBR. IF COMMANO ISSUED OK 

I INC AND CHECK FOR MORE THAN ?5 ERRORS 

l SAVE CONTENTS Of TSSR 

i WRITE CHARACTERISTIC FAIt I D 

TRAP C1ERHRD 



G14 



CZTKHA TK-25 FRT END FUNC 44 1ACR0 M1200 

TEST 4: ERASE ANO OPERATION INCOMPLETE 



6588 

6589 
6590 
6591 
6592 
6596 



6597 

6598 
6599 
6600 
6601 
6602 
6603 
6607 



6608 

6609 
6610 
6611 
6612 
6613 
6614 
6615 
6616 
6617 
6618 
6619 
6620 
6621 
6622 
6623 
6624 
6628 
6629 
6630 
6631 



6632 

6633 

6634 



04 7634 

047636 

04 764C 

047642 

047642 

047644 

047650 

047652 

04 7654 

047660 

04 7660 

047662 

04 7664 

04 7666 

047670 

04 7670 

047672 

047676 

047700 

04 7 704 

04 7706 

047710 

047714 

047714 

047716 

04 7720 

047722 

047724 

047724 

047726 

047732 

04 7 734 

04 7 740 

04 7 746 

04 7 754 

04 7 760 

047762 

047766 

047772 

047776 

050002 

050006 

050012 

050014 

050016 



050022 
050022 
050024 
050026 
050030 
050032 
050032 
050034 
050036 



000634 
004 760 
011666 

104406 
004737 
103407 
010004 
004737 

104456 
000635 
051530 
011700 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
000636 
051346 
016350 

104406 
012703 
010300 
004737 
013737 
012737 
012704 
010300 
0O4737 
010337 
010465 
004737 
016501 
012702 
020102 
001406 
004737 



104457 
000637 
052366 
011700 

104406 
005 723 
020327 



010434 



020106 



051176 
000002 

020106 



0O0144 



23$ 



APR -34 
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SEQ 175 






.WORD 


412 






.WORD 


WRTMSG 






.WORD 


SFIMSG 


CKL.00P 




jLOOP If SELECTED 








TRAP 


CICLP1 


JSR 


PC.REWINO 


jCA 1 . TAPE REWIND COMMAND 




BCS 


301 


j Br. , IF NO PROBLEM 




MOV 


R0.R4 


j SET UP REWIND PACKET ADDRESS 




JSR 


PC.FATCHK 


i INC ANO CHECK FOR MORE THAN 25 


ERRORS 


ERRHRD 


ERRN0,T32RWN»PKTSSR 


(REWIND NOT ACCEPTED 








TRAP 


C$ERHRD 






.WORD 


413 






.WORD 


T32RWN 






.WORD 


PKTSSR 



30*: 



CKLOOP 



40$: 



020400 

003076 051302 

140005 051300 651: 

051300 

0204 OO 
051306 
177776 
017124 
OOOOOO 
000200 



020106 



CKLOOP 

MOV 
MOV 
JSR 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 

be a 

JSR 



jLOOP IF SELECTED 



MOV 


T32BFR*6,R1 


MOV 


R1.R2 


BIS 


#biu,R2 


CMP 


R1.R2 


BEQ 


40$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0,T<2B0T,EXPREC 



0100. ,R3 

R3.R0 

PC.FILLMEM 

FREE.T32W6 

♦140005. T32PK3 

♦T32PK3.R4 

R3.R0 

PC.FILLMEM 

R3.T32SZ 

R4,TSD8(R5) 

PC, WAITF 

TSSR(R5),R1 

♦SSR.R2 

R1.R2 

80$ 

PC.FATCHK 



ERRSOFT ERRN0.T32WDC, PKTSSR 



80$: 



000156 



CKLOOP 

1ST 
CMP 



TRAP 



C$CLP1 



iPICK UP XSTO 
:SET UP EXPECTED 
jSET BOT BIT IN EXPECTED 
jDOES EXP • RFC'D 
iBR. IF EQUAL (OK) 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 
jTAPE NOT AT BOT AFTER REWINO 

TRAP 



jLOOP IF SELECTED 



.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
414 

T32B0T 
EXPREC 

C$CLP1 



(R3)» 
R3,niO* 



STARTING RECORD SIZE 

SET UP MtMORY FILL 

CALL MEMORY FILLER 

STARTING WRITE BUFFER ADDRESS 

WRITE DATA.CVC-l.ACK COMMAND 

SET UP R4 WITH PACKET ADORE SS 

SET PATTERN TN CORRECT REGISTER 

FILL MEMORY WITH RECORD SIZE 

SET UP RECORD SIZE IN PACKET 

ISSUE COMMANO 

WAIT FOR SSR TO SET 

GET TSSR C0NTENT5 

SET UP EXPECTED 

ARE THEY EQUAL 

BR, IF OK 

INC ANO CHECK FOR MORE "i HAN 25 ERRORS 

SOFT ERROR, DON' I CARE ABOUT WRITE 

COMMAND'S RESULTS - CHECKING THE 

ERASE COMMANO 

TSSR INCORRECT AFTER WRITE DATA 

TRAP CIERSO^T 

.WORD 415 
.WORD T32WDC 
.WORD PKTSSR 
il.OOP IF SELECTED 

TRAP C$CLP1 

,BUMP RECORD SIZE COUNTER 
|AT 160 SIZE YET 



CZTKHA TK-25 FRT FNQ FUNC *A MACRO M 

TEST 4: ERASE AND OPERATION INCOMPLETE 



H14 
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SEQ 176 



6635 

6636 
6637 
6638 
6639 
6643 



6644 

6645 
6646 
664 7 
6648 
6649 
6650 
6654 



6655 

6656 
6657 
6658 
6659 
6660 
6661 
6662 
6663 
6664 
6665 
6666 
6670 



6671 

667? 
6673 
6674 
6675 
66 76 
6677 
6678 
6679 
r>680 
6681 
b682 
6686 



050042 

050044 

050050 

050052 

050054 

050060 

050060 

050062 

050064 

050066 

050070 

050070 

050072 

050076 

050100 

050104 

050106 

050110 

050114 

050114 

050116 

050120 

050122 

050124 

050124 

050126 

050132 

050136 

050144 

050150 

050154 

050160 

050164 

050170 

050172 

050174 

050200 

050200 

050202 

050204 

050206 

050210 

050210 

050212 

050220 

050226 

050234 

050240 

050244 

050250 

050254 

050260 

050262 

05C264 

0502/0 

0502/0 

050272 



001341 
004737 
105407 
010001 
004737 

104456 
000640 
051530 
016350 

104406 
013701 
010102 
052702 
020102 
001406 
004737 

104456 
00O641 
051346 
016350 

104406 
012703 
0O4737 
012737 
012704 
010465 
0O4737 
016501 
012702 
020102 
001406 
004737 

104456 
00O642 
051646 
011700 

104406 
013737 
012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004 737 

104456 
000643 



010434 



020106 



051176 
000002 

020106 



OOOC01 
010134 
140411 
051300 
177776 
017124 
OOOOOO 
000200 



020106 



003076 
140401 
000144 
051300 
177776 
017124 
OOOOOO 
000200 



020106 



BNE 
JSR 
BCS 
MOV 
JSR 
ERRHRO 



230$} CKLOOP 



65$ 

PC. REWIND 

230$ 

R0.R1 

PC.FATCHK 

ERRN0 f T32RWN,EXPREC 



MOV 


T32BFR*6,R1 


MOV 


R1.R2 


BI5 


•BIT1.R2 


CMP 


R1.R2 


BEQ 


240$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T32B0T, EXPREC 



240$ j CKLOOP 



051300 265$: 



'80$: 



MOV 
JSR 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



CKLOOP 



• 1,R3 

PC, SPACE 

#140411, T32PK3 

*T32PK3,R4 

R4.TSDBCR5) 

PC.WAITF 

TSSR(R5),R1 

«5SR,R2 

R1.R2 

280$ 

PC FATCHK 

ERRN0,T32ERA,PKTSSR 



051302 
051300 
051306 



MOV 


FREE.T32RB 


MOV 


0140401, T32PK3 


MOV 


*100. , T32S/ 


MOV 


0T32PK3.R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


4SSR.R2 


CMP 


R1.R2 


nea 


290$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T32TSA.PKViiS! 



I BR, IE MORE RECORDS TO URITE 

j CALL TAPE REWIND COMMAND 

j BR. IE NO PROBLEM 

j SAVE TSSR 

I INC ANO CHECK FOR MORE 

j REWIND NOT ACCEPTED 



THAN 25 ERRORS 



jLOOP IF SELECTED 



TRAP 
.WORD 
.WORD 
.WORD 

TRAP 



CiERHRD 

416 

T32RUN 

EXPREC 

C$CLP1 



iPICk yjp XSTO 

jSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

jDOES EXP ■ REC'D 

iBR, IF EQUAL (OK) 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

{TAPE NOT AT BOT AFTER REWIND 

TRAP C$ERHRD 
.WORD 41/ 
.WORD T32B0T 
.WORD EXPREC 

jLOOP IF SELECTED 

TRAP C$CLP1 

I SET UP FOR SPACE COMMAND 

I ISSUE SPACE COMMANO 1 FORWARD 

lERASE DATA.ACK COMMAND 

I SET UP R4 WITH PACKET ADDRESS 

, ISSUE COMMANO 

jWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

{SET LP EXPECTED 

I ARE TH6Y EQUAL 

jBR, IF OK 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR INCORRECT AFTER READ DATA 

TRAP 



jLOOP IF SELECTED 



j ADDRESS 



.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
418 
T32ERA 
PKTSSR 

CICLPl 



>R 



OF BUFFER 
jREAD REVERSE. ACK.CVC-1 COMMANO 
j SET UP THE ST/E OF RECORD 
i SET UP R4 WITH PACKET ADDRESS 
I ISSUE COMMANO 
jWAIT FOR SSR TO SET 
jGET TSSR C0NTENT5 

jSET UP EXPECTEO TAPE STATUS ALERT 
j ARE TH€Y EQUAL 
j BR. IF OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 
I TSSR INCQ&RCCT AFTER READ DATA 

TRAP CJtRHRD 
.WORD 419 



fi 



114 



:tkha tk-25 frt end func 04 macro M1200 

1ST 4: ERASE AND OPERATION INCOMPLETE 
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<;EU 177 



6687 

6688 
6689 
6690 
6691 
6692 
6696 



6697 

6698 
6699 



050274 
050276 
050300 
050300 
050302 
050306 
0503 1^ ; 
050314 
050316 
050322 
050322 
050324 
050326 
050330 
050332 
05033? 
050334 
050334 
050334 
050334 



052141 
011700 

104406 

017701 132570 

012702 000144 

"20102 

001406 

004737 020106 

104456 
000644 

052305 
016350 

104406 



104403 



290$: CKLOOP 



3001: 
330*} 



CKLOOP 



ENDSUB 



t LOOP IF SELECTED 



.WORD 
.WORD 

TRAP 



T32TSA 
PKTGSR 

C1CLP1 



MOV 


SFREE.R1 




iGET DATA READ 


MOV 


♦100, ,R2 




j SHOULD BE 100 


CMP 


R1.R2 




j CHECK' EM OUT 


BEQ 


3001 




I BR. IF OK 


JSR 


PC.FATCHK 




j INC ANO CHECK 


ERRHKD 


ERRN0.T32ECF, 


.fcXPREC 


1 ERASE COMMAND 



I LOOP IF 



FOR MORE THAN 25 ERRORS 
DIDN'T WORK 

TRAP 

.WORD 

.WORD 

.WORD 
SELECTED 

TRAP 



CIERHRD 
420 
T32ECF 
EXPREC 



CfCLPl 



j >>>>>>>>>>>> 



tW> SUBTEST 
L 10055: 

TRAP 



*>>>»»"►>•>'►•>* 



c*esue 



CZTKHA TK 25 FRT END FUNC 04 MACRO M1200 
TEST 4: ERASE AND OPERATION INCOMPLETE 



20-APR-84 03:13 



J 14 
PAGE 106 



SEQ 178 



(.701 
6702 
6703 
6704 
6705 
6706 
6707 
6708 
6709 
6 710 
6711 
6712 

671?; 

6/14 

6715 
6716 
6717 
6718 
6719 
6720 
6721 
6722 
6725 
6724 

6 ??r> 

6726 
6727 
6728 
6729 
6730 



6731 
6732 
6733 
6734 
6735 
6736 
6737 



6 738 
6 739 
6740 
6744 
674b 



6746 



050336 
050336 
050336 
050340 
050544 
050350 
050354 
050362 
050366 
050370 
050370 

0503 74 
050376 
050402 
05O404 
050410 
05041? 
050416 
050420 
050424 
050426 
050432 

0504 34 
0504 34 
050456 
050440 
050442 
050444 



i * 



TEST 4, SUBTEST 3 



VERIFIES THAT THE OTHER TAPE 

MOTION COMMANDS EXECUTED WHEN THE TAPE IS BLANK 

RESULT IN UNRECOVERABLE ERROR TERMINATION ANO OPERATION 

INCOMPLETE STATUS, THE FOLLOWING TEST SEQUENCE IS EXECUTED 

1. THE TAPE IS REWOUND. 



2. 



3. 



ERASE COMMANDS ARE ISSUED SUCH THAT THE TAPE IS POSITIONED 
ABOUT IN THE MIDDLE OF THE FIRST TRACK, 



IT IS VERIFIED THAT EACH OF THE FOLLOWING COMMANOS 
(ISSUED IN THE ORDER GIVEN) RESULTS IN UNRECOVERABLE 
ERROR TERMINATION WITH OPI-1: SPACE RECORDS REVERSE 
SKIP TAPE MARKS REVERSE READ REVERSE REREAD PREVIOUS 
COPP-0) REREAD PREVIOUS COPP-1) REREAD NEXT (OPP-l) 
REREAD NEXT (OPP-O) READ NEXT SKIP TAPE MARKS REVERSE 
SKIP TAPE MARKS FORWARD SPACE RECORDS FORWARD WRITE 
DATA RETRY 



104402 

0O4737 052724 

004737 052632 

004737 052754 

012737 176750 051344 

004737 016650 

103426 

012727 000250 

OOOOOO 

013727 002116 

OOOOOO 

005367 177772 

001375 

005367 177756 

001367 

005337 051344 

001356 

004737 020106 

OiOOOl 

104455 
000645 
003554 
011666 



l - 



9$: 



10$: 



BGNSUB 



,>>>>>>>>>>>> BEGIN SUBTEST »>>>*»>>**»> 

T4.5: 







TRAP 


C*BSW3 


JSR 


PC.T32RT2 


|SE7 UP OTHER COMMANO PACKET 




JSR 


PC.T32REST 


j SET COMMAND PACKET 




JSR 


PC.T32RT3 


iSF.T UP OTHER COMMAND PACKET 




MOV 


*65000. , T32DLY 


|SFT UP DELAY COUNTER 




JSR 


PC.SOFINIT 


iDO INITIALIZE ON CONTROLLER 




BCS 


20* 


j BR IF INIT WAS OK 




DELAY 


250 


jDELAY ABOUT ,25 SEC 








MOV 


• ?50 » ( PC ) > 






.WORD 









MOV 


L IDLY, (PC) 






.WORD 









DEC 


-6(PO 






BNE 


. 4 






DEC 


-22<PC) 






BNE. 


, -20 


DEC 


T32DI Y 


jBUMP COLTER 




BNE 


101 


jBR, IF COUNTER NOT DONE 




JSR 


PC.FATCHK 


j INC ANO CHECK FOR MORE THAN 25 


ERRORS 


MOV 


R0.R1 


iCON T FNTS OF TSSR REGIS1ER 




ERRDF 


ERRNO.SFIERR.SFIMSU 


|FAT/>L ERROR TSSR WAS NOT OK 








TRAP 


CSERDF 






.WORD 


421 






. WORD 


Sf II KM 






.WORD 


SFIMbG 



20 $i 



K14 



C/TKHA TK 25 FRT END FUNC 04 MACRO M120O 

TEST 4: ERASE AND OPERATION INCOMPLETE 
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6747 
6748 
6749 
6750 

6751 
6755 
6756 



6757 

6758 

6759 
6760 
6761 
6762 
6766 



6767 

6768 

6769 
6770 
6/71 
6772 
6775 
6777 



6778 

6/79 

6780 
6781 
678? 
6783 
6784 
67f',*i 
6 7 M6 
678/ 
6788 
6789 
6790 
6794 



6 795 
67% 



05044* 
050450 
050454 
050456 
050462 
050464 
050464 
050466 
050470 
0504 72 
050474 
0504 74 
050476 
050502 
050504 
050510 
050512 
050516 
C50516 
050520 
050522 
050524 
050526 
050526 
050550 
050534 
050536 
C50542 
050544 
050546 
050552 
050552 
050554 
050556 
050560 
050562 
05056? 
050564 

050570 
050576 
050602 
050606 
050612 
050616 
050622 
050624 
050626 
050630 
050634 
050654 
050636 
050640 
050642 
050644 
0^0650 



051150 
010332 

020106 



010434 
OOOOOO 
020106 



012704 
004737 
103407 
OC 1737 
010001 

104456 
000646 
004 760 
011666 

104406 
004 737 
103411 
016501 
010OO4 
004 7 37 

104456 
000647 
051530 
011700 

104406 
015701 
010102 
052702 
020102 
001406 
004737 

104456 
000650 
051346 
016350 



104406 

012703 000454 



051176 
000002 

020106 



012737 
012704 
010465 
004737 
01650.1 
01270? 
020102 
00140? 
010102 
004 737 

104456 
000651 
052366 
011700 
162 703 
001401 



140411 
051300 
177/76 
017124 
OOOOOO 
000200 



020106 



23$} 



30$} 



MOV 
JSR 
BCS 
JSR 
MOV 
ERRHRD 



CKLOOP 

JSR 
BCS 
MOV 
MOV 
JSR 
ERRHRD 



CKLOOP 



40* 



051300 65$ i 



4T32PACKET.R4 

PCWRTCHR 

23$ 

PC.FATCHK 

R0.R1 

ERRNO,WRTMSG*SF'IMSG 



PC.REWIND 
30$ 

fSSR(R5),Rl 
R0.R4 
PC.FATCHK 
ERRN0.T32RWN.PKTSSR 



MOV 


T32BFR*6,R1 


MOV 


R1.R2 


BIS 


«IT1,R2 


CMP 


R1,R2 


BEQ 


40$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T32B0T.EXPREC 



CKLOOP 




MOV 


0300. ,R3 


MOV 


0140411, T32PK3 


MOV 


4T32PK3.R4 


MOV 


N4,TSDB(R5) 


JSR 


PC, WAIT*" 


MOV 


TSSR(R5),R1 


MOV 


*SSR.R2 


CMP 


R1.R2 


BEQ 


70$ 


MOV 


R1.R2 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T32WDC.PKTSSR 



SEQ 179 



i SUBROUTINE NEEDS PACKET ADDRESS 

j ISSUE WRITE CHARACTERISTICS 

•BR, IF COMMAND ISSUED OK 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF" TSSR 

I WRITE CHARACTERISTIC 



FAILED 

TRAP 
.WORD 
.WORD 
.WORD 



CIERHRD 
42? 
WRTMSG 
SFIMSG 



jLOOP ir SELECTED 

TQAp P$CLPl 

I CALL TAPE RLWIND COMHAND 

t BR. IF NO PROBLEM 

jGET TSSR CONTENTS 

jGET PACKET ADDRESS 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 



lLOOP IF SELECTED 



TRAP 

.WORD 

.WORD 

.worn) 

TRAP 



CIFRHRO 
423 

T32RWN 
PKTSSR 

C$CLP1 



jPICK UP XSTO 

jSET UP EXPECTED 

iSET BOT BIT IN EXPECTED 

iDOES EXP - REC'D 

I BR, IF EQUAL (OK) 

»INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TAPE NOT AT BOT AFTER REWIND 

TRAP 
.WORD 
.WORD 
.WORD 

I LOOP IF SELECTED 

TRAP 
ERASES SO TAPE IS HALF 



CIF.RHRU 

4?4 

T32B0T 

EXPREC 



j* OF 



C$CLP1 
1ST TRACK 



OOQQOi 



70* t 



sue 
BEU 



01.R3 

50$ 



iERASE DATA.CVC-l.ACK COMMANO 

t SET UP R4 WITH PACKET ADDRESS 

I ISSUE COMMANO 

jWAIT FOR S5R TO SET 

iGF.T TSSR CONTENTS 

iSET UP EXPECTED 

{ ARE THEY EQUAL 

j BR, IF OK 

iSAVE ORIG TSSR 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER WRITE DATA 

TRAP C$FRHRD 

.WORD 425 
.WORD TVWDC 
.WORD PKTSSR 

I BUMP DOWN TO NFXT VALUE 

tBR, IF 300 fcRAS£S WRITTEN 



LI 4 



^r«i\iM R u N 8p^i8a incMt^ 1200 
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SEQ 180 



6797 050652 


000746 




6798 050654 






050654 


104406 




6799 050656 


012703 


051310 


6800 050662 


013737 


003076 051302 


6801 050670 


011337 


051300 


680? 050674 


012704 


051300 


6803 050700 


012700 


177777 


6804 050 704 


004737 


020400 


6805 050/10 


012737 


000144 051306 


6806 050716 


010465 


177776 


6807 050722 


012737 


000012 051344 


6808 050730 


004737 


017124 


6809 050734 


016501 


OOOOOO 


6810 050740 


012702 


100214 


6811 050744 


020102 




6812 050746 


001425 




6813 050750 






050750 


012727 


000250 


050754 


OOOOOO 




050756 


013727 


0O2116 


050762 


OOOOOO 




050764 


005367 


177772 


050770 


001375 




050772 


005367 


177756 


0507 76 


001367 




6814 0510OO 


005337 


051344 


6815 051004 


001351 




6816 0510O6 


004737 


020106 


6820 051012 






051012 


104456 




051014 


0OOC5? 




051016 


052305 




051020 


011700 




6821 051022 






051022 


104406 




6822 051024 


013701 


051204 


6823 051030 


010102 




6824 051032 


052702 


000100 


6825 051056 


020102 




6826 051040 


001406 




6827 051042 


004 737 


020106 


6831 051046 






051046 


104456 




051050 


0OO653 




051052 


052433 




051054 


016350 




68'. » 051056 






051056 


104406 




6833 051060 


005723 




6834 05106? 


021327 


17777/ 


6835 051066 


001300 




b836 






683' 






6838 






6839 0510 /0 


004/3 7 


010434 


6840 0510/4 


103411 





80$: 



265*: 



270$: 



280$: 



BR 


65$ 




CKL.OOP 






MOV 


♦T32CMQ.R3 




MOV 


FREE.T32RB 




MOV 


(R3),T32PK3 




MOV 


♦T32PK3.R4 




MOV 


♦1777/7, RO 




JSR 


PC.FILLMEM 




MOV 


♦100. .T32SZ 




MOV 


R4.TSDBCR5) 




MOV 


♦10. , T32DLY 




JSR 


PC.WAITF 




MOV 


TSSR(R5).R1 




MOV 


♦SSR!SC!BIT2!BIT3,R2 




CMP 


R1.R2 




BF.Q 


280$ 




DELAY 


250 


! 



DEC 


T32DLY 


BNE 


?70i 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T32ECF.PKTSSR 



CKI.OOP 



MOV 


T32BFR»14,Rl 


MOV 


R1.R2 


BIS 


♦BIT6.R2 


CMP 


R1.R2 


BEQ 


290$ 


JSR 


PC.FATCHK 


ERRHRD 


ERRN0.T320P1.EXPREC 



'90$: CKI.OOP 

TST 

CMP 
BNE 



CR3)f 

(R3), 0177777 

265$ 



REWIND THE DRIVt 



tKEEP GOING 

{LOOP IK SELECTED 

TRAP C$CLP1 

{STARTING RECORD SIZE 

j STARTING READ BUFFER ADDRESS 

{READ DATA.ACK COMMANO 

; SET UP R4 WITH PACKET ADDRESS 

jSET PATTERN IN CORRECT REGISTER 

i FILL MGMORY WITH ALL ONES 

j SET UP RECORD SIZE IN PACKET 

I ISSUE COMMANO 

i SET UP DELAY COUNTER 

iWAIT FOR SSR TO SET 
GET TSSrt CONTENTS 

{SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IF OK 

{DELAY FOR SSR TO bE SET 

MOV 

.WOHD 

MOV 

.WORD 

DEC 

BNE 

DEC 

BNE 

; COUNT DELAY ROUTINE DOWN 

jBR, IF DELAY HAS NOT ENDED 

{INC AND CHECK FOR MORE THAN 25 

jTSSR INCORRECT AFTER READ DATA 

TRAP 
.WORD 
,WO«D 
.WOHD 

jLOOP IF SELECTED 

TRAP C$CLP1 

iPICK UP XST3 

{ SET UP EXPECTED 

iSET OPI BIT IN EXPECTED 

i IS OPI BIT SET 

jBR, IF BIT IS SET 

l INC ANO CHECK FOR MORE THAN 25 

jOPI BIT NOT SET 

TRAP 
.WORD 
.WORD 
.WORD 



♦250. (PC) > 


L*DLY,(PC)» 


-6(PC) 
. -4 

-22CPC) 
.-20 



ERRORS 

CSEWHRD 

426 

T32EC*- 

PKTSSR 



{LOOP IF SELECTED 



TRAP 



ERRORS 

CURHRD 
42 7 
T320PI 
EXPREC 

C5CLP1 



j BUMP COMMANO POINTER 

I AT END OF TABLE YET 

i BR. KEEP TRYING COHMANOS 



JSR 
BCH 



PC. REWIND 
226$ 



;CALL (APE 
iBR. IF NO 



REWIND COMMAND 
PROBLEM 



TEJ 











M14 


KHA TK-25 F-RT END FUNC 04 MACRO M1200 20 


-APR-84 


08 5 15 PAGE 106-3 


T 4; ERASE 


AND OPERATION INCOMPLETE 






6841 051076 


010004 




MOV 


R0,R4 


6842 051100 


016501 


000000 


MOV 


TSSR(R5),R1 


6843 051104 


004757 


020106 


JSR 


PC.FATCHK 


6847 051110 






ERRHRD 


ERRN0,T32RWN,PKTSSR 


051110 


104456 








051112 


000654 








051114 


051530 








051116 


011700 








6848 051120 




226$: 


CKLOOP 




051120 


104406 








6849 










6850 










6851 










6852 051122 




291$: 


ENDSUB 




05112.? 










051122 


104403 








6853 










6854 










6855 










6856 051124 


004737 


017362 


J5R 


PC.TSTLOOP 


6857 051130 


103002 




BCC 


163$ 


6858 051132 


000137 


046732 


JMP 


T32L00P 


6859 051136 




163$ i 


EXIT 


TST 


051136 


104432 








051140 


001636 









SEQ 181 



»SET UP REWIND PACKET ADDRESS 

{GET TSSR CONTENTS 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

j REWIND NOT ACCEPTED 



j LOOP IF SELECTED 



TRAP 


CJERHflD 


,UORD 


428 


.WORD 


T32RWN 


.WORD 


PKTSSR 



TRAP 



CJCLPl 



j >>>>>>>>>>> > END SUBTEST >>>>>>>>>>:»:» 

L 10056: 

TRAP C$ESU8 



jDO WE NEED TO ITERATE TEST 

}BR. IF NO LOOP REQUIRED 

{EXECUTE AGAIN 

lALL DONE THIS TEST 

TRAP CUXIT 
.WORD L10053 



N14 



ft 



:tkha TK-25 FRT END KUNC 44 MA£R( 
:ST 4; ERASE AND OPERATION INCOMPU 



6861 

6862 

6865 

6865 

6867 

6868 

6869 

6870 

6871 

6872 

6873 

6874 

6875 

68/6 

68 77 

6878 

6879 

6880 

688? 

6884 

6885 

6886 

6887 

6888 

6890 

6892 

6893 

6894 

6895 

6896 

6897 

6898 

6899 

6900 

6901 

6902 

6903 

6904 

6905 

6906 

6907 

6908 

6909 

6910 

6911 

691? 

6913 

6914 

6915 

6916 

6917 



I MJ.200 

:te 



I * 
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SEQ 182 



051142 
051150 
051150 
051152 
051154 
051156 
051160 
051160 
05116? 
051164 
051166 
051170 



051252 
051260 
051260 
051262 
051264 
051266 
051270 
051300 
051300 
051302 
05130? 
051304 
051306 



051310 
051310 
051312 
051314 
051316 
051320 
051322 
051324 
051326 
051330 
051332 
051334 
051336 

051340 
05134? 
0S1344 



100004 
051160 
000000 
000012 

051170 
000000 
000024 
000000 



100006 
OOOOOO 
000000 
OC0006 



100C05 

003076 
OOOOOO 
OOOOOO 



140410 
141410 
140401 
141001 
161401 
161001 
141401 
140001 
141410 
341010 
141005 
177777 

OOOOOO 
OOOOOO 
OOQOOO 



I LOCAL. STORAGE FOR THIS TEST 
I - 



.BLKB 


10-<.-T 


T32PACKET: 




.WORD 


100004 


. WORD 


T32DATA 


.WORD 





.WORD 


10. 


T32DATA; 




.WORD 


T32BFR 


.WORD 





.WORD 


20. 


.WORD 





T32BFR: .BLKW 


25. 



{WRITE SUBSYSTEM MEMORY COMMAND PACKET 
.BLKB 10 <. TUV2A£7> 



T32PK2: 








.WORD 


100006 




.WORD 







.WORD 







.WORD 


6. 




.BLKB 


10-<.-TUV2A67> 


T32PK3: 








.WORD 


100005 


T32RB: 






T32WB: 


.WORD 


FREE 




.WORD 





T32SZ: 


.WORD 
.EVEN 





;TAPE MOTION PACKET COMMAND VALUES 


T32CMD: 








.WORD 


140410 




.WORD 


141410 




.WORD 


140401 




.WORD 


141001 




.WORD 


161401 




.WORD 


161001 




.WORD 


141401 




. WORD 


140001 




.WORD 


141410 




.WORD 


141010 




.WORD 


141005 




.WORD 


177777 


*i32CNT: 


.WORD 





T32CNU: 


.WORD 





1 32DLY t 


.WORD 






j COMMAND PACKET FOR TEST 

{WRITE CHARACTERISTICS COMMAND, WITH 

{ADDRESS OF CHARACTERISTICS BLOCK 

{STARTING VALUE OF BLOCK SIZE 
{CHARACTERISTICS DATA BLOCK 
{ADDRESS OF MESSAGE BUFFER 

{LENGTH OF MESSAGE BUFFER 

{MESSAGE BUFFER 



ACK 



{WRITE SUB SYS MEM COMMAND, AND ACK 
{ADDRESS OF SELECT BLOCK DATA 

{SIZE OF DATA PACKET 



{REREAD COMMAND, AND ACK 
{ADDRESS OF WRITE BUFFER 
{SIZE OF BUFFER (EXTENT) 



{SPACE RECORDS REVERSE 
j SKIP TAPE MARKS REVERSE 
iREAD REVERSE 
{REREAD PREVIOUS C0PP-0) 
I REREAD NEXT COPP-1) 
jREREAD PREVIOUS COPP-1) 
{REREAD NEXT COPP-0) 
iREAD NEXT 

{SKIP TAPE MARKS REVERSE 
i SKIP RECORDS FORWARD 
;WRITE DATA RETRY 
lEND OF DATA 

iTape timer counter storage area 

i TAPE TIMER COUNTER STORAGE AREA 
{DELAY COUNTER 



B 1 '. 



C/TKHA TK 25 FRT END HJNC M 
TEST 4; ERASE ANO OPERATION 



MACRO M1200 
INCOMPLETE 
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SEQ 183 



6919 

*920 

69,? 1 

6922 

6923 

6924 

6925 051346 124 

692t> 051441 124 

6927 051530 122 

692fl 051577 124 

6929 0M646 124 

6930 051713 124 

6931 051766 122 

6932 052064 124 

6933 052141 124 

6934 052216 102 

6935 052305 105 
6936 

6937 052566 124 

6938 0524 33 117 
6959 0524 70 105 
6940 052527 045 
6941 

6942 
6943 
6944 
6945 
6946 
694 7 
6948 

6949 052632 

6950 052632 

6951 052636 Oi.2/01 

6952 052642 012721 

6953 052646 012721 
69V4 052v>52 005021 

6955 052*54 012721 

6956 052660 012721 
695/ 052664 005021 

6958 052666 012721 

6959 052672 005021 

6960 052674 012711 

6961 052700 012702 

6962 052704 012762 

6963 052 712 005 742 

6964 052 M 4 022 702 

6965 05272O 001371 

6966 052722 000207 
696 7 

6968 

6969 052724 

69 70 052/24 

69/1 052 730 012/01 

69/2 052734 012721 

6973 ,2/40 005021 

6974 052 742 005021 
W7S 052/44 0127*1 



llOCAt 

l - 



TEXT MESSAGES FOR TEST 



141 
141 
145 
123 
123 
123 
105 
123 
123 
117 
122 

123 
120 
162 
116 



051150 
100004 
051 16C 

000012 

051170 

00O024 

000000 
000030 

177777 

000000 



051260 

100006 



000006 



160 
160 
167 
123 
123 
102 
101 
123 
123 
124 
101 

123 
111 

141 

045 



051170 



T3280T: 

T32E0Ti 

T32RWNi 

T32AM3i 

T32€RAi 

T328A S 

T32«IBi 

T52SCFi 

T32TSAi 

T3260CJ 

T32ECF* 



.ASCIZ 
.ASCI/ 
.ASCIZ 
.ASCI/ 
. ASCIZ 
.ASCIZ 
.ASCI/ 
.ASCI? 
.ASCIZ 
.ASCIZ 
.ASCIZ 



Tape Mot At 80T After REWINO Cowmend CBOT Not Set In XSTO) 
Tape Statu* Alert During Era** To EOT, But EOT Not S«t' 
Rewind (POSITION) Command Not Accepted' 



"nit. Failed Aftar REREAD COHMANO' 

Not Correct Aftar ERASE Co*w»and' 

Not Correct After REREAO DATA Co«"»end' 

REVERSE, After ERASE Fro* BOT, Failed To Set RIB In XST3 

Not Correct After SPACE RECORDS Commend' 

Not Correct After READ REVERSE Into BOT' 
BOT (XSTO) Still Set After Ereee From Tape'*. BOT Marker' 
•ERASE Failed To Clear Tape (Eraae) Te*s>e Properly' 



TSSR 
TSSR 
TS8A 
READ 
TSSR 
TSSR 



132W0C: .ASCIZ 
T3^0PIi .ASCIZ 
TST32ID< 
FAULTMj .ASCIZ 

.EVEN 
I * 

iROUTINE TO RESTORE COrfiANO PACKET 
iWRITE SUBSYSTEM MEMORY COMMANO 



TSSR Not Correct After ERASE Co*w*and' 
•OPI Bit (XST3) Failed T Set' 
.ASCIZ '^rm9m And Operation IncoMplet*' 
'#N*A Thie Teet May Illu*inat« The Drive Fault L5^>t t Not An Error' 



TO START-UP (DEFAULT) VALUES 



l 
T32REST: 




SAVREU 




MOV 


♦ T32PACKf r.Rl 


MOV 


#100004, (Rl)* 


MOV 


♦T320ATA 4 (R1)* 


CLR 


(Rl). 


MOV 


•lO.,(Rl)t 


MOV 


♦ T32BFR t (Rl)» 


CLR 


(Rl ). 


MOV 


♦20. ,(R1). 


CLR 


(Rl). 


MOV 


♦0, (Rl ) 


MOV 


♦24..R2 


641: MOV 


♦1/77 77, T32BFR(R2) 


TST 


(R2) 


CMP 


♦O.R2 


BNt 


64 1 


RTS 


PC 


X$ZM2\ 




SAVRKi 




MOV 


♦T32PK^,H1 


MOV 


#100006, {H\U 


Cl R 


(Ri >. 


CLR 


(Rl ). 


MQV 


f6.»(Rl>* 



,SAVE THE REGISTERS 

jSTART OF THE PACKET 

jURITE SUBSYSTEM MEM. WITH ACK , 

lAOORESS 0*" CMARAiSTICS DATA BIOCK 

lEXTENOEO AOOftESS 

,SIZE Of DATA BLOCK IN BtTES 

jAOORESS OF MESSAGE BUFFER 

jLENGTH OF MESSAGE BUFFER 

1 SELECT DRIVE ZERO 

jNUMBER OF LOCATIONS TO BE CLEARED 

jALL ONES TO MESSAGE BUFFER 

,NEXT LOCATION 

,AT ENO OF LOOP »ET 

iKEEP GOING UNTIL DONE 

I RE TURN 



,SAVF THE REGISTERS 

jSTART O TMt PACKET 

lURITE SUBSYSTEM MEf 'JITH ACK t 

jADDRFSS OF DATA BL.l 

itXTFNDED ADDRESS 

i$Ul OF DATA ©LOCK IN UiTKti 



C 1 ':. 



CZTKHA TK 25 ERT ENO P'UNC *4 MACRO M1200 
TEST 4; ERASE ANO OPERATION INCOMPLETE 



6976 
6977 
6978 
69/9 
6980 
6981 
6982 
6983 
6984 
b985 
09Q5 



052750 
052752 
052754 
052 754 
052760 
052764 
052766 
0527 70 
052 7 72 
052? 74 
0527 76 
0527 76 
052776 



005021 
000207 



012701 
005021 
005021 
005021 
005011 
000207 



104401 



T32RT3t 



051300 



APR -84 


08tl3 PAGE 108^1 


CLR 


(Rl)* 


RTS 


PC 


SAVREG 




MOV 


*T3?PK3,R1 


CLR 


CRD* 


CLR 


(Rl). 


CLR 


(Rl)* 


CLR 


(Rl) 


RTS 


PC 


ENQT5T 





SEG) 164 



I RE TURN 

I SAVE REGISTERS 

I SET UP POINTER 

iCOMMANO SPACE 

I ADDRESS Of DATA BLOCK 

jEXTENDED ADORESS 

I SIZE OT DATA TRANSFER BLOCK 

I RETURN 



L 10053 J 



TRAP 



OETST 



9&? ha s! k opM?IoI^ a^St m 



6990 
6991 
699? 
6993 
6994 
6995 
6996 
6997 
6998 
6999 
7000 
7001 
7002 

7005 
7004 
700b 
7010 
7011 
7012 
7013 
7014 
7015 
7016 
7017 
7018 
7019 
7020 
70? I 
7022 
7023 
7024 
7025 
7026 
702 7 
702A 
7029 
70 30 
70 51 
70 32 
7033 
70 34 
7055 
7036 
703/ 
7030 

7040 
7041 
704? 
704 3 
7044 
704S 
7046 
704 1 
704 8 
7049 



Dili 
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.SBTTL TEST 5t OPERATIONS AT EOT 



THIS TEST VERIFIES PROPER OPERATION Of THE WRITE DATA RETRY 
COMMAND (SPACE REVERSE, ERASE, WRITE DATA) 



THE TEST CONSISTS OF THE FOLLOWING 1 SUBTEST 



SEQ 195 



053000 
053000 
053000 
0530O4 
055010 
053016 
053022 
053026 
053034 



BGNT5T 



005037 
005037 
01273? 
012700 
004737 
012737 
005037 



002172 
003104 
005676 
057224 
017414 
OOOOOl 
055562 



002150 
002166 



CLR 


FATFLG 


CLR 


KTFLG 


MOV 


♦EPRU.EPRTSW 


MOV 


*TST34ID,R0 


JSR 


PC.TSTSETUP 


MOV 


•l.LOOPCNT 


CLR 


T34CNT 



T5:: 

I CLEAR FATAL ERROR FLAG 
j HOLD OFF KTli 

I PRIMARY ERROR MESSAGE 
lASCII MESSAGE TO IDENTIFY 
»D0 INITIAL TEST SETUP 
l PERFORM 1 ITERATIONS 
l CLEAR TAPE RECORD COUNTER 



TEST 



TEST 5, SUBTEST 1 



THIS TEST VERIFIES THAT THE EOT STATUS IS HANDLED PROPERLY BY 
THE VARIOUS TAPE MOTION COMMANDS, THE FOLLOWING TEST SEQUENCE 
IS PERFORMED: 

1. THE TAPE IS REWOUND. 

2, WRITE DATA COMMANDS APE REPEATEOLY ISSUED UNTIL TAPE 
STATUS ALERT TERMINATION IS SEEN WITH EOT-1. ERRORS 
OTHER THAN OCCASIONAL CORRECTABLE OR UNCORRECTABLE DATA 
ERRORS CAUSE A FATAL ERROR REPORT. RECuROS WITH DATA 
ERRORS ARE RETRIED. SO THE TAPE ENDS UP WITH GOOD DATA. 

3. ANOTHER WRITE DATA COMMANO IS ISSUED, AND IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1. 

4, A WRITE TAPE MARK COMMANO IS ISSUED, ANO IT IS CHECKED 
THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH EOT-1, 

5. A SKIP TAPE MARKS REVERSE COMMANO IS ISSUED. AND IT IS 
CHECKED THAT TAPE STATUS ALERT TERMINATION OCCURS, WITH 
EOT-1 ANO TMK-l. 

6, A SPACE RECORDS REVERSE COMMAND, WITH A RECORO COUNT Of' 
I, IS ISSUED, AND IT IS CHECKED THAT TAPE STATUS ALERT 
TERMINATION OCCURS. WITH EOT-1 ANO TMK-l. 

7. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT OF 
1. IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH FOT-l. 

8, A SPACE RECORDS FORWARD COMMAND, WITH A RECORD COUNT OF 



^rsIV^Iorffir* 4 



MACRO M1200 



7050 
7051 
705<? 

7053 

7054 
,'055 
7056 
7057 
7058 
7054 
7060 
7061 
7065 
7065 
7064 
7065 
706o 
706/ 
7068 
7069 
7070 
70/1 
707<> 

70/5 

70/4 
70 /5 
70/6 
7077 



I: IS 

20- APR- 84 0BU3 PAlifc 111-1 

1. IS ISSUED. ANO IT 15 CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

9. A READ REVERSE COHMANO IS ISSUED. ANO IT IS CHECKED 
THAT NORMAL TERMINATION OCC'JHS, WITH EOT-1. 

10. A READ FORWARD COMMAND IS SiiUED. ANO IT IS CHECKED 
THAT NORMAL TERMINATION OCCURS, WITH EOT-1. 

11. A SPACE RECORDS REVERSE COMMAND, WITH A RECORD COUNT 0*' 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS. WITH EOT-0. 

li>. A SPACE REC0RD5 FORWARD COHMANO, WITH A RECORD COUNT Of 
3, IS ISSUED, AND IT IS CHECKED THAT NORMAL TERMINATION 
OCCURS, WITH EOT-1. 

13. A SKIP HL.E MARKS REVERSE COMMAND IS ISSUED, WHICH 

SHOULD SKIP ALL THE WAY TO BOT, AND IT IS CHECKED THAT 
TAPE STATUS ALERT TERMINATION OCCLKS, WITH EOT-0, 
BQT«i, ANO RIB-1, 



StU 106 



053040 



T34LU0P{ 



CZTKHA TK-25 FRT END *'\JHQ 04 
TEST 5: OPERATIONS AT EOT 



7079 
7080 
7081 
7082 
7083 
7084 
7085 
7086 
708/ 
7088 
7089 
7090 
7091 
709? 
7093 
7094 
7095 
7096 
709/ 
7098 
7099 
7100 
7101 
7X0*? 
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SEO 187 



7lo3 

7104 

7105 

710f 

7107 

7108 

7109 

7110 

7111 

71 IP 

7113 

7114 

7115 

7116 

711/ 

7118 

7119 

7120 

7121 

7122 

7l?3 

7124 

7125 

7126 

712 7 

7128 

7129 

7130 

7151 

713? 

7133 



053040 
053040 
053040 



104402 



054042 

053046 
053050 
0530M 



005737 
00140? 
000137 



002140 
055372 



053054 
053060 
053064 

053070 



004737 
004 73 7 
004 73 7 
012737 



05/7?6 
060164 
06012? 
176750 



TEST 5 4 SUBTEST 1 

VERIFIES THAT SITING OVER THE ENO-OF-TAPE (EOT) 
MARKER CAUSES TAPE STATUS ALERT TERMINATION. IF THE 
TAPE TRANSPORT DO£S NOT RECOGNIZE THE EOT MARKER, THE 
TAPE WILL RUN OFF THE END OF THE REEL, CAUSING THE 
PROGRAM SEQUENCE TO BE ABORTED WITH A FATAL ERROR 
INDICATION, IN THIS CASE, CORRECTIVE MAINTENANCE 
MUST BE PERFORMED USING THE TRANSPORT'S BUILT-IN 
MAINTENANCE ROUTINE AVAILIA8LE VIA THE FRONT PANEL, 
IF THE CONTROLLER DOES NOT RECOGNIZE THE EOT, XHt, 
TRANSPORT WILL FAULT BUT THE TAPE WILL NOT RUN OFF 
THE ENO OF THE REEL BUT THE TRANSPORT MUST BE 
MANUALLY PLACED BACK ON-LINE TO BE USABLE, THIS IS A 
FATAL DIAGNOSTIC ERROR. 



BGNSU6 



j>>>>>>>>>>>> BEGIN SUBTEST >>>>»»>■»-*■»»> 

T5.1: 

TRAP CSBSUB 



A********************************************************************* 

SPECIAL SOFTWARE PARAMETER CHECK TO REDUCE THE MTTR OF THE. 
DRIVE I.E. SKIPS THIS SUBTEST IF SELECTED 

********************************************************************** 



M: 



TST 


EOTSH 


BEQ 


51 


JMP 


600* 



l CHECK SWITCH FOR PARAMETER 
jBR, IF OPTION NOT SELECTED 
jBR, NO EOT TE5T SELECTED 



***+******************+*************»**********•********************** 

SET UP THE PACKET BUFf ERS ANO WAIT LONG TIME FOR SSR 
THEN ISSUE A SOFT INITIAl IZF 

********************************************************************** 



0^5564 



JSR PC.T34REST 

JSR PC,T34RT3 

JSR PC.T34RT? 

MOV #65000, .T54DLY 



j SET COMMAND PACKET 
t HESTORE PACKET 
I SET UP OTHER COMMAND PACKET 
I SET UP COUNTER 



^■M^rWIoS^a^t* 4 



7134 053076 


004737 


016650 


7155 055102 


103433 




7136 053104 






053104 


01272/ 


000250 


053110 


OOOOOO 




053112 


013727 


002116 


053116 


OOOOOO 




053120 


005367 


177772 


05312^ 


001375 




053126 


00536/ 


1,7/756 


053132 


001367 




713 7 053134 


016501 


OOOOOO 


7138 053140 


032701 


000200 


7139 053144 


001012 




7140 053146 


005337 


055564 


7141 053152 


001351 




7142 053154 


004737 


020106 


7146 053160 


010001 




7147 053162 






053162 


104455 




053164 


000/65 




053166 


003554 




053170 


011666 




7146 053172 






053172 


104406 




7149 






7150 






7151 






7152 






7153 






7154 






7155 






7156 






715/ 






7158 0531/4 


O12704 


055420 


7159 053200 


0O4737 


010332 


7160 053204 


103407 




7161 053206 


0O4737 


020106 


7165 053212 


OtOOOl 




7166 053214 






053214 


L04456 




053216 


0O0766 




053220 


0O4/6C 




053222 


011666 




7167 053224 






053224 


104406 




7168 






7169 






71/0 






7171 






71/2 






71/3 






71/4 






/1/5 053226 


004/3/ 


0104 34 


71/6 053232 


1034U 




71// 053234 


016501 


OOOOOO 


7178 053240 


0X0004 
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SEQ 188 



10$ j 



JSR 
8CS 
DELAY 



PC.S0F1N1T 

20* 

250 



t D0 INITIALIZr ON CONTROLLER 




jBR IF INIT WAS OK 




1 DELAY A WHILE 




MOV 


*250,CPC)» 


.WORD 





MOV 


L»DL Y.CPO* 


.WORD 





DFX 


-6CPC) 


BNt 


. 4 


DEC 


•22CPC) 


BNE 


,-20 



MOV 


TSSR(R5),R1 


BIT 


♦SSR.Rl 


BNE 


20% 


DEC 


T34DLY 


BNE 


10$ 


JSR 


PC.FATCHK 


MOV 


R0,R1 


ERRDF 


ERRNO.SFIERR.SFIMSG 



jGET fSSR STATUS 

I CHECK FOR S5R SET 

jBR, WHEN SSR IS SET 

I BUMP COUNTER DOWN 

jBR, IF MORE DEl AY REQUIRED 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 



20$ 



CKLOOP 



jCONTENTS OF TSSR 
jFATAL ERROR TSSR 



jLOOP IF SELECTED 



REGISTFR 
WAS NOT OK 
TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CltROf" 

501 
SFIERR 

SF imsg 

CJCLP1 



********************************************************************** 

ISSUE A WRITE CHARACTERISTICS COMMANO TO CONTROLLER 

* ***** ** ********** a ******************* ************* ******************** 

j SUBROUTINE NEEDS PACKET ADDRESS 

I ISSUE WRITE CHARACTERISTICS 

j BR, IF COMMAND ISSUED OK 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

I SAVE CONTENTS OF TSSR 

iWRITE CHARACTERISTIC FAILED 

TRAP CIERHKU 

. WORD 502 
.WORD WRTMSG 
. UORD Sf IMS(i 
30$: CKLOOP il.OOP IF SELECTED 

TRAP CICLPl 



MOV 


♦T34PACKET.R4 


JSR 


PC.WRTCHR 


BCS 


30$ 


JSR 


PC.FATCHK 


MOV 


R0.R1 



ERRHRD ERRNO , WRTMSG , SF IMSG 



********************************************************************** 

ISSUE A REWINO COHMANO 
a*,**.***************** ********++*^**±+*********** ************* **♦***.*** 

iRtWINO CALL 

jBR, IF TSSR IS OK CUUOD) 

j GET TSSR 

I SET UP PACKET 



JSR 


PC.REUINO 


BCS 


35* 


MOV 


TSSR(R5),Ri 


MOV 


R0,R4 



[TKHA TK 25 FR T END FUNC 04 
1ST 5; OPERATIONS AT EOT 
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SEQ 169 



71/9 

7183 



7184 

7185 

7186 
718 7 
7188 
7189 
7190 
7191 
7192 
7195 
7194 
7195 
7196 
7197 
71V8 
719J 
7200 
7201 
7202 
7203 
7207 



7208 
7209 

7210 

7211 

7212 

7215 

7214 

7215 

7216 

721/ 

7218 

7219 

7220 

7221 

7222 

7223 

7224 

7225 

/226 

722 7 

/22tt 

/229 

/230 

/231 



053242 
053246 
053246 
053250 
053252 
053254 
053256 
053256 



053260 
053266 
053274 
053302 
053306 
053312 
053316 
053322 
053326 
053330 
053332 
053336 
053336 
055340 
053342 
053344 
053346 
053350 
053350 



053352 

055360 
053364 
0533/2 
053400 
053404 
053410 
053414 
053420 
053424 
053426 
O55430 
053432 



004 737 020106 

104456 
0O0767 
057246 
011700 

104406 



012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001407 
0O4737 

104457 
000770 
005015 
011700 
000757 

104406 



012737 
012703 
013737 
012/37 
012/04 
010465 
004737 
016501 
012702 
020102 
001010 
005303 
001364 



35$: 



J5R PC.FATCHK 

ERRHRD ERRN0.T34RWN.PKTSSR 



CKLOOP 



I INC ANO CHECK FOR MORE THAN 25 ERRORS 
tTSSR IS INCORRECT AFTER REWIND 

TRAP C$ERHRD 
.WORD 503 
.WORD T34RWN 
.WORD PKTS^R 
{LOOP IF SELECTED 

TRAP CICLP1 



140O05 
003076 
066540 
055550 
177776 
017124 
000000 
000200 



020106 



055550 
055552 
055556 



MOV 


#140005, T34PK3 


MOV 


FREE.T34WB 


MOV 


♦28000. .T54SZ 


MOV 


♦T34PK3,R4 


MOV 


R4,TSD8(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


39$ 


JSR 


PC,FA(CHK 



ERRSOFT ERRNO.WRTERR.PKTSSR 



140005 
176750 
003076 
066540 
055550 
177776 
017124 
000000 
000200 



055550 

055552 
055556 



***.*.*.*>***«********** + ******************************* + + ** + + ****** + **«* 

ISSUE A WRITE COMMAND. CH€CK FOR ERRORS. THIS IS SO THAT THE 

drive: will not jif.t hang IF AN ERROR OCCURS. 
*>*.*> *.*.******^*>***************.*.**>*********************************** 

iWRITE DATA, ACK . CVC-1 
I SET UP WRITE BUFFER ADDRESS 
jSET UP BUFFER SIZE C INC OF UYTES) 
jR4 • POINTER TO PACKET 
36*5 MOV R4.TSD8CR5) j ISSUE COMMANO 

jWAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

jSET UP EXPECTED 

jARE THEY EQUAL 

j BR. IK ALL IS WELL NO PROBLEMS 

tINC ANO CHECK FOR MORE THAN 25 ERRORS 

I TSSR INCORRECT AFTER WRTTE TAPE 

TRAP CIERSOFT 

.WORD 504 
.WORD WRTfRR 
.WORD PKTSSR 
BR 36$ jBR, TO DO MORE CONTROLLED WRITES 

39$: CKLOOP jLOOP ON ERROR IF SELECTED 

TRAP CfCLPl 

i 
.A********************************************************************* 

ISSUE A WRITE COMMANO, KEEP l.OING UNTIL TAPE STATUS ALERT 

+ + *^**********************.******************************************** 

, WRITE DATA, ACK. CVC-l 
jSET MAX NUMBER Of WRITES 
iSr T UP WRITE BUFFER ADDRESS 
i SET UP BUFFER SIZE (INC P OF BYTES) 
f R4 « POINTER TO PACKET 
40$j MOV R4,TSDB(R5) i ISSUE COMMANO 

jWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

I BR, IT MIGHT BF END OF TAPE 

jDEC RECORD COUNTER 

iBR, IF MORE TO GO 



MOV 


*140005,T54PK3 


MOV 


<tf>5000. ,R3 


MOV 


FREE.T34W8 


MOV 


428000. t T34SZ 


MOV 


#T34PK3,R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


*SSR,R2 


CMP 


R1.R2 


BNE 


50$ 


DEC 


R3 


BNE 


40$ 



CZTKHA TK-25 FRT ENO '• UNC 44 
TEST 5: OPERATIONS AT EOT 
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SEQ 190 



7232 

7236 



0534 34 
053440 
053440 
05344? 
055444 
053446 



7237 
723a 
7239 
7240 
7241 
7242 
7243 
7244 
7245 
7246 
7247 
7248 
7249 
7250 
7251 
7252 
7253 
7254 
7255 
7256 
7257 
7258 

7259 

7260 
7261 
7262 
7265 
7264 
7265 
7266 
7267 
7268 
7269 
72/0 
72/1 
72/2 
7273 
72/4 
72/5 
7276 
7380 



7281 

7282 
/2«3 
/2ti4 



053450 
053450 
053454 
053456 
053462 
053464 
0534 /O 
053472 
C534/4 
053500 
053502 
053506 
053510 
053512 
053516 
053516 



053520 
053526 
053534 
053542 
053S46 
053552 
053556 
053562 
053566 
0535/0 
053572 
0535/6 
053576 
053600 
053602 
055604 
05 5606 
053606 



004737 020106 

104455 
000771 
057057 
011700 



022701 
001003 
004757 
103/50 
032701 
001001 
000/44 
013/01 
010102 
052702 
020102 
001402 
000137 

104406 



01273/ 

013757 
012/37 
012704 
010465 
0O4/3/ 
016501 
012/02 
020102 
001406 
004737 

104456 
0007 72 
0564 50 
011700 

104406 



100210 
060020 
0O0004 

055446 
000001 

053404 



140005 
003076 
066540 
055550 
177776 
017124 
000000 
100204 



020106 



J5R 
ERRDK 



PC.FATCHK 
ERRN0,T34ET,PKTSSR 



055550 
055552 
055556 



i INC AND CHECK TOR MORE THAN 25 ERRORS 
I EOT NOT FOUND (USE SHORTER TAPE?) 

TRAP C$ERDF 
.WORD 505 
.WORD T34ET 
.WORD PKTSSR 

4***** 44 4444******444*4*4*44******«*************+4********4****44*4444 

HAVE TAPE STATUS ALERT, NOW CHECK FOR EOT. IF NEITHER KEEP GOING 
444 44************* ****************£************************ *********** 

50$: 

jCHECK FOR UNCORRECTABLE ERROR 

t BR, IF IT WASN'T UNCORR, 

I CHECK FOR EARLY WARNING 

I BR, IF EARLY WARNING FOUND 

» CHECK FOR TAPE STATUS ALERT 

I BR, IF SET 

i KEEP GOING 

jPICK UP XSTO 

,SET UP EXPECTED 

j SET THE EOT BIT ON IN EXPECTED 

jWAS THE BIT ON 

i BR. IF EOT WAS FOUND 

iKEEP LOOKING 

jLOOP IF SELECTED 

TRAP CtCLPl 

a********************************************************************* 
ISSUE ONE MORE WRITE AFTER EOT DETECTED 

4********44***************4 4444***************4*** ********* *********** 

iWRITE DATA, ACK , CVC-1 

j SET UP WRITE BUFFER ADDRESS 

,SET UP BUFFER SIZE (INC * OF BYTES) 

jR4 - POINTER TO PACKET 

I ISSUE COMMAND 

l WAIT yOR SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EiPECfED 

j ARE THEY EQUAL 

l BR, IF THEY ARE OK 

l INC ANO CHECK FOR MORE THAN 25 ERRORS 

jWRITE TAPE AT EOT FAILED TO SET TSA 

TRAP CtERHRD 

, WORO 506 
.WORD T54H2 

.WORD Pk t ^:i 
90$: CKLOUP ,LOOP IF SELECTED 





CMP 


♦100210, Rl 




BNE 


55$ 




JSR 


PC.EWCHK 




BCS 


40$ 


55$ j 


BIT 


♦BIT2.R1 




BNE 


60$ 




BR 


40$ 


60$: 


MOV 


T34BFR*6,R1 




MOV 


R1.R2 




BIS 


♦6IT0,R2 




CMP 


R1.R2 




BEQ 


80$ 




JMP 


40$ 


80$: 


CKL.OOP 





MOV 


♦140005, T34PK3 


MOV 


FREE.T34WG 


MOV 


♦28000, ,T54SZ 


MOV 


♦T34PK3.R4 


MOV 


R4.TSDB(R5) 


JSR 


PC.UAITF 


MOV 


TSSR(R5).R1 


MOV 


♦SC!SSR!BIT2,R2 


CM^ 


R1.R2 


BEQ 


90$ 


JSR 


PC.FATCHK 



ERRHRD ERRN0,T34ET2, PKTSSR 



.WORD 
TRAP 



PKTSSR 
CSCLPl 



t 4***44**************************************************************** 



C7TKHA TK 25 fRT LNO mNC 04 
TEST 5: OPERATIONS AT EOT 



7285 
7286 
728/ 
7288 
7289 
7290 
7291 
7292 
7293 
7294 
7298 



Jib 
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SEQ 191 



7299 

7500 
7301 
7302 
7303 
7304 
7305 
7306 
7307 
7308 
7309 
7310 
7311 
7312 
7313 
7314 
751b 
7319 



7520 

7521 

7322 
7323 
7524 
732b 
7326 
752/ 
7328 
7329 
7350 
7331 
7332 
7533 
7337 



053610 

053614 
053616 
053622 
053624 
053626 
053632 
053632 
053634 
053636 
053640 
053642 
053642 



053644 
053652 
053656 
053662 
053666 
053672 
053676 
053700 
053702 
053706 
053706 
053710 
053712 
053/14 
053716 
053716 



053720 
053/24 
053/26 
053732 
053734 
053736 
053/42 
053/42 
053/44 
05374b 



013701 055446 

010102 

052702 000001 

020102 

001406 

0O4737 020106 

104456 
000773 
056516 
016350 

104406 



012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
000/74 
056341 
011700 

104406 



015701 
010102 
052/02 
020102 
001406 
004 737 

104456 
000 7/5 
055764 



140011 
055550 
177776 
01/124 
OOOOOO 
100204 



020106 



055446 
000001 



020106 



055550 



j CHECK TO BE SURE EOT IS STILL SET, IT SHOULD BE 

j ********************************************************************** 

»PICK UP XSTO 

jSET UP EXPECTED 

,SET THE EOT BIT ON IN EXPECTED 

jWAS THE BIT ON 

j BR, IF EOT WAS FOUND 

i INC ANO CHECK FOR MORE THAN 25 ERRORS 

jEOT BIT (XSTO) NOT SET 

TRAP CIERHRD 
.WORD 507 
.WORD T34ETN 
.WORD EXPREC 
100$: CKLOOP jLOOP IF SELECTED 

TRAP CSCLPl 
J 

I 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


B.IS 


*6IT0,R2 


CMP 


R1.R2 


BEQ 


100$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T34ETN , EXPREC 



NOU ISSUE A WRITE TAPE MARK, STILL BEYOND EOT 

i 

.******************************************************************•*** 

j WRITE TAPE MARK, ACK , CVC-1 COMMANO 

|R4 - POINTER TO PACKET 

j ISSUE COMMANO 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

15ET UP EXPECTED 

j ARE THEY EQUAL 

|BR, IF STATUS IS GOOD (OK) 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

j WRITE TAPE MARK FAILED 

TRAP CtERHRD 

. WORD 508 
.WORD T34WTM 
.WORD PKTSSR 
j LOOP IF SELECTED 

TRAP CSCLP1 



MOV 


♦140011, T34PK3 


MOV 


*T34PK3,R4 


MOV 


R4,TSD8CR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


♦SC.SSRJBIT2.R2 


CMP 


R1.R2 


BEQ 


110$ 


JSR 


PC.FATCHK 



not 



ERRHRD ERRN0.T34UTM. PKTSSR 



CKLOOP 



********************************************************************** 

NOW CHECK TO BE SURE EOT IS STILL SET 

********************************************** ************************ 

jPICK UP XSTO 

jSEf UP EXPECTED 

j SET THE. EOT BIT ON IN EXPECTED 

jWAS THE BIT ON 

j BR. IF EOT WAS FOUND 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

;EOT BIT (XSTO) NOT SET 

TRAP CM'RHRD 

.WORD 509 
.WORD T34ET0 



MGV 


T34BER*6,R1 


MOV 


R1.R2 


BIS 


$eiTQ,R? 


CMP 


R1.R2 


BEQ 


120$ 


vJSR 


PC.FATCHK 



ERRHRD ERRNQ.T34CT0, EXPREC 



CZTKHA TK 25 FRT END FUNC 04 
TEST 5: OPERATIONS Ml EOT 



7338 

7339 
7340 
7341 
734? 
734 3 
7344 
7345 
7346 
734 7 
7348 
7349 
7350 
7351 
7352 
7353 
7354 
7355 
7559 



7360 

7361 

736? 
7363 
7364 
7 365 
7366 
7367 
7 368 
7369 
7370 
73/1 
73 7? 
7373 
7377 



7378 

7379 
7380 
7381 
758? 
7385 
7384 
7 335 
7 386 
738/ 

7wa 



053750 
053752 
053752 



016350 
104406 



053754 
053762 
053770 
053774 
054000 
054004 
054010 
054014 
054016 
054020 
054024 
054024 
054026 
054030 
054032 
054034 
054034 



012737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004 737 

104456 
000776 
057325 
011700 

104406 



054036 
054042 
054044 
054050 
05405? 
054054 
054060 
054060 
05406? 
054064 
054066 
0540/0 
054070 



013/01 
010102 
052702 
020102 
001406 
004737 

104456 
000/7 7 
0574?! 
016350 

104406 



0540/? 

05407b 
054100 



013/01 
010102 
052702 



141410 
000001 
055550 
177776 
017124 
OOOOOO 
000200 



020106 



055446 
000001 

020106 



055446 
100000 
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SEQ 192 



055550 
055552 



120$: 



CKl.OOP 



j LOOP IF SELECTED 



,UOR0 
TRAP 



EXPREC 

CfCLPl 



• *** *********** ******** ************************************************ 



NOW ISSUE A SKIP TAPE MARK REVERSE RIGHT BACK INTO THE JUST WRITTEN TM 



t ******************************************************** ****** ******** 



t 



MOV 


♦141410, T34PK3 


MOV 


♦1.T34WB 


MOV 


flT34PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


4SSR.R2 


CHP 


R1.R2 


BEQ 


130$ 


JSR 


PC.FA1CHK 



130$ 



I 



ERRHWD ERRNO , T34STM , PKTSSR 



CKLOOP 



jSKIP TAPE MARK REVERSE ACK,CVC»1 COMMAND 

i SET NUMBER C 1 ) OF TMS TO SKIP 

jR4 - POINTER TO PACKET 

» ISSUE COMMAND 

iWAIT FOR SSR TO SET 

jGET TSSR CONTENTS 

iSET UP EXPECTED 

j ARE THEY EQUAL 

jBR. IF STATUS IS GOOO (OK) 

i INC AND CHECK FOR MORE THAN 25 ERRORS 

jSKIP TAPE MARK REVERSE FAILED 

TRAP CIFRHRD 
.WORD 510 
.WORD T54STM 
.WORD PKTSSR 

lLOOP IF SELECTED 

TRAP C$CLP1 



I ********************************************************************** 



EOT SHOULD STILL BE SET 



;********************************************************************** 

i 

{PICK UP XSTO 

j SET UP EXPECTED 

;SET THE EOT BIT ON IN EXPECTED 

iWAS THE BIT ON 

jBR, IF EOT WAS FOLND 

I INC ANO CHECK FOR MORE THAN 25 ERRORS 

jEOT BIT (XSTO) NOT SET 

TRAP CiERHRD 
.WORD 511 
.WORD T345TE 
.WORD EXPREC 
140$; CKLOUP {LOOP IF SELECTED 

TRAP CSCLP1 



MOV 


T34BFR»6.R1 


MOV 


R1.R2 


BIS 


*0IT0,R? 


CMP 


R1.R2 


BEQ 


140$ 


JSR 


PC.FATCHK 



F.RRHRD ERRNO , T34STE , EXPREC 



********************************************************************** 

THE TMK BIT SHOULD BE SET ALSO 
********************************************************************** 



MOV T54B*R»6,Rl 

MOV RI.R2 

BIS 0BIT15.R2 



jPICk up xsro 

jSET \JP EXPECTED 

jSET THE TMK BIT ON IN EXPECTED 



C/TKHA TK 25 FRT END F UNC 04 
TEST 5 j OPERATIONS AT EOT 
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SEQ 193 



7389 

7390 
7391 
7395 



7396 

7397 
7398 
7399 
7400 
7401 
740.? 
7403 
7404 
7405 
7406 
7407 
7408 
7409 
7410 
7411 
74 12 
7413 
7417 



7418 

7419 
7420 
7421 
7422 
7423 
7424 
7425 
7426 
7427 
7428 
7429 
74 30 
74 51 
7435 



7436 

74 5/ 

74 58 
7439 



054104 
054106 
054110 
054114 
054114 
054116 
054120 
054122 
054124 
054124 



054126 
054134 
054142 
054146 
054152 
054156 
054162 
054166 
054170 
0541 12 
054176 
054176 
054200 
054202 
054204 
054206 
054206 



054210 

054214 
054216 
054222 
054224 
054226 
054232 
054232 
054234 
054236 
054240 
054242 
054242 



020102 
001406 
0O4737 020106 

104456 
001000 
056751 
016350 

104406 



CMP Rl.RP 

BFQ 150$ 

JSR PC.FATCHK 

ERRHRD ERRNO , T34 TMK , EXPREC 



150$; CKLOOP 



,WAS THE BIT ON 

j BR. IF* TMK WAS FOUND 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

1 TMK (XSTO) NOT SET 

TRAP ClfcRHRD 
.UORD 512 
.WORD T34TMK 
.WORD EXPREC 

iLOOP IF SELECTED 

TRAP CICLP1 



( ***** ************************************************* **************** 



ISSiE SPACE RECORDS REVERSE FOP 1 RECORD. STILL BEYONO EOT 



012737 140410 055550 

012737 000001 055552 

012704 055550 

010465 177776 

004737 017124 

016501 000000 

012702 100204 

020102 

001006 

004737 020106 

104456 
OO1001 
0556 76 
011700 

104406 



J 
1 
{ 

; ********************************************************************** 

j SPACE RECORDS REVERSE, ACK, CVC-1 CMO 

1 SPACE ONE RECORD REVERSE 

,R4 - POINTER TO PACKET 

jISSUE COMMAND 

iWAIT FOR SSR TO SET 

!GET TSSR CONTENTS 

iSET UP EXPECTED 

{ ARE THEY EQUAL 

jBR, IT MIGHT BE END OF TAPE 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{SPACE RECORDS REVERSE FAIlED 

TRAP CtERHRD 
.WORD 513 
.WORD T34P0S 
.UORO PKTSSR 
160$i CKLOOP jLOOP IF SELECTED 

TRAP CSCLPl 



MOV 


*140410.T34PK3 


MOV 


01.T34WB 


MOV 


*T34PK3,P4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5).R1 


MOV 


*SC!SSR»BIT2.R2 


CMP 


R1.R2 


BNE 


160$ 


JSR 


PC.FATCHK 



ERRHRD ERRMO ♦ T34P0S , PKTSSR 



013701 055446 

010102 

052702 000001 

020102 

001406 

0O4737 020106 

104456 
001002 
056601 
016350 

104406 



? 



********************************************************************** 

EOT SHOULD STILL BE SET 
********************************************************************** 

iPICK UP XSTO 

j SET UP EXPECTED 

1 SET THE EOT BIT ON IN EXPECTED 

;WAS THE BIT ON 

iBR. IF EOT WAS FOUNO 

I INC ANO CHECK FOR hORE THAN 25 ERRORS 

lEOT BIT (XSTO) NOT SET 

TRAP CILRHRD 
.WORD 514 
.WORD T34ETS 
.WORD EXPRF.C 
163$: CKLOOP {LOOP IF SELECTED 

TRAP C$CLP1 

j ********************************************************************** 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


BIS 


*6IT0,R2 


CMP 


R1.R2 


BEQ 


163$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T34ETS. EXPREC 



%ir*sV<&mi<m ) kmT M 



7440 
7441 
7442 
7443 
7444 
7445 
7446 
7447 
7448 
7449 
7453 



7454 

745b 
7456 
7457 
7458 
7459 
7460 
7461 
746? 
7463 
7464 
7465 
7466 
7467 
7468 
7469 
•71/0 
74 71 
7475 



7476 

,4 77 
74/8 
74 79 
7480 
7481 
748? 
7483 
7484 
7485 
7486 
7487 
7488 
7492 



054244 
054250 
05425? 
054256 
054260 
054262 
054266 
054266 
054270 
0542 72 
054274 
054276 
054276 



054300 
054306 
054314 
054320 
054324 
054330 
054334 
054340 
054342 
054 344 
054350 
054350 
05435? 
054354 
054356 
054 360 
054360 



0S4362 
054 366 

054 370 
054374 
054376 
054400 
054400 
054402 
C54404 



013701 
010102 
042702 
020102 
001406 
004737 

104456 
001003 
057515 
016350 

104406 



012737 
012737 
0127O4 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001004 
055676 

011700 

104406 



013701 
010102 
042/02 
020102 
001404 

104456 
001005 
056155 



055446 
100000 



020106 



140410 
000003 
055550 
177776 
017124 
000000 
000200 



020106 



055446 
000001 



M 1 5 

MACRO M1H00 20-APR-84 08:13 PAGE 112-7 



SEQ 194 



j HOWEVER, THE TMK BIT SHOULD NOW BE CLEAR 

i 

I PICK UP XbiO 

j SET UP EXPECTED 

j CLEAR THE TMK BIT ON IN EXPECTED 

jUAS THE BIT ON 

i BR, IF TMK WAS FOUND 

l INC AND CHECK FOR MORE THAN 25 ERRORS 

j COULD NOT CLEAR TMK CZSTO) 

TRAP CfERHRD 
.WORD 515 
.WORD T?*TMN 
.WORD EXPREC 
165$: CKLOOP iLOOP IF SELECTED 

TRAP C$CLP1 



MOV 


T34BFR*6,R1 


MOV 


R1.R2 


BIC 


0BIT15.R2 


CMP 


R1.H2 


BEQ 


165$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO, T34TMN, EXPREC 



.****************************************** ************ ******** 4**4**** 

! NOW SPACE 3 RECORDS IN REVERSE 

i 

; ******** * ******** ******* **************** ************************ ****** 



055550 
055552 



I 



MOV 


$140410, T34PK3 


MOV 


*3,T34WB 


MOV 


*T34PK3,R4 


MOV 


R4,TSDBCR5) 


JSR 


PC. WAIT 


MOV 


TSSR(R5),R1 


MOV 


*5SR,R2 


CMP 


R1.R2 


BEQ 


167$ 


JSR 


PC.FATCHK 



ERRHRD ERRNO , T34P0S , PK TSSR 



jSPACE RECORDS REVERSE, ACK, CVC-1 CMD 

j SPACE THREE RECORD REVERSE 

»R4 « POINTER TO PACKET 

l ISSUE C0M.1AND 

j WAIT FOP SSR TO SET 

iGET TSSR CONTENTS 

j SET UP EXPECTED 

j ARE THEY EQUAL 

j BR, IT MIGHT BE ENO OF TAPE 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

; SPACE RECORDS COMMAND FAILED 

TRAP CIERHRD 
.WORD 516 
.WORD T34POS 



167$ 



CKLOOP 



jLOOP IF SELECTED 



.WORD PK TSSR 
TRAP C$CLP1 

2 ********************************************************************** 

! NOW THE EOT BIT SHOULD BE CLEAR 

s 

: ********************************************************************** 

jPICK UP XSTO 

iSET UP EXPECTED 

i CLEAR THE EOT BIT ON IN EXPECTED 

jWAS THE BIT OFF 

jBR, IF EOT WAS FOUND 

jUNABLE 10 CLEAR EOT INDICATION 

TRAP CJFRHRD 

.WORD 517 
.WORD T34ETC 



MOV 


T34BFR»6,R1 


MOV 


R1.R2 


BIC 


*6IT0,R2 


CMP 


R1.R2 


BEQ 


170$ 



ERRHRD ERRNO, T34ETC.PKTSSR 



CZTKHA TK 
TEST 



-25 F-RT END FUNC 04 
5: OPERATIONS AT EOT 



054406 011700 



7493 
7494 

7495 
7496 
7497 
7498 
7499 
7500 
7501 
7502 
7503 
7504 
7505 
7506 
7507 
7508 
7509 
7510 
7511 
7515 



7516 

751/ 
7518 
7519 
75120 
7521 
7522 
7523 
7524 
7525 
7526 
7527 
7528 
7529 
7533 



7534 

7535 
7536 
753/ 
7538 

7539 
7540 
7541 
7542 
7543 



054410 
054410 



054412 
054420 
054426 
054432 
054436 
05444? 
054446 
054452 
054454 
054456 
054462 
054462 
054464 
054466 
0544 70 
054472 
054472 



0544 /4 
054500 
054502 
054 506 
054510 
054512 
054516 
054516 
054520 
054522 
054524 
054526 
054526 



054530 
054536 



104406 



012737 
012737 
012/04 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001006 
055676 
011700 

104406 



140010 
000004 
055550 
177776 
017124 
OOOCOO 
000200 



020106 



013701 055446 

010102 

052702 000001 

020102 

001406 

004737 0201C6 

104456 
001007 
056601 
016350 

104406 



012737 
013737 



140401 
003076 
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SEQ 195 



055550 
055552 



055550 
055552 



.WORD 



170*: 



CKLOOP 



{LOOP IF SELECTED 



TRPP 

********************************************************************** 

HOW SPACE 4 RECORDS FORWARD, ONCE AGAIN OVER EOT MARKER 
j ******************************************************************** * + 



PKTSSR 
C*CLP1 



} 



MOV 


0140010, T34PK3 


MOV 


44.T34WB 


MOV 


<H34PK3,R4 


MOV 


R4.TSDBCR5) 


JSR 


PC.WAITF 


MOV 


TSSRCR5),R1 


MOV 


0SSR.R2 


CMP 


R1,R2 


BEQ 


190$ 


JSR 


PC.FATCMK 



190$ 



ERRHRD ERRNO , T34P05 , PKTSSR 



CKLOOP 



j SPACE RECORDS FORWARD, ACK, CVC-1 

I SPACE FOUR RECORDS 

}R4 - POINTER TO PACKET 

i ISSUE COMMAND 

I WAIT FOR SSR TO SET 

{GET TSSR CONTENTS 

I SET UP EXPECTED 

{ARE THEY EQUAL 

{BR, IT MIGHT BE END OF TAPE 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

{SPACE RECORDS COMMAND FAILED 

TRAP CIERHRD 
.WORD 518 
.WORD T34P0S 
.WORD PKTSSR 

{LOOP IF SELECTED 

TRAP C$CLP1 



ONCE AGAIN THE EOT INDICATION SHOULD BE SET IN XSTATO 

;********************************************************************** 



I 



MOV 


T34BFR+6.R1 


MOV 


R1.R2 


BIS 


*6IT0,R2 


CMP 


R1,R2 


BEQ 


200$ 


JSR 


PC.FATCHK 



200$ 



ERRHRD ERRNO , T34ETS , EXPREC 



CKLOOP 



{PICK UP XSTO 

{SET UP EXPECTED 

{SET THE EOT BIT ON IN EXPECTED 

{WAS THE BIT ON 

iBR, IF EOT WAS FOUND 

{INC AND CHECK FOR MORE THAN 25 ERRORS 

lEOV BIT (XSTO) NOT SET 

TRAP C$ERHRD 
.WORD 519 
.WORD T34ETS 
.WORD EXPREC 

jLOOP IF SELECTED 

TRAP C$CLP1 



********************************************************************** 

i NOW ISSUE A READ REVERSE COMMAND 
I 

t ***************4 ********************************** ************ ******** 



MOV i>140401, T34PK3 
MOV FREE.T34RB 



{PCAO REVERSE, ACK, CVC-1 
{SET UP WRITE BUFFER ADDRESS 



C/TKHrt TK 25 FRT END FUNC #4 
TEST 5: OPERATIONS AT EOT 
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SEQ 196 



7544 
7545 
7546 
754? 
7546 
7549 
7550 
7551 
7555 



/5s«> 

755 7 
7558 
7559 
7560 
7561 
7562 
7563 
7564 
7565 
7566 

756 7 
7566 
7569 
7570 
7571 
7572 
7576 



757 7 

75 70 
7579 
7560 
7561 
7562 
7565 
7564 
7565 
7586 
75«7 
7566 
7569 
7590 
7591 
759? 
7595 
7594 

759G 



054544 
054550 
054554 
054560 
054564 
054570 
054572 
054574 
054600 
054600 
054602 
054604 
054606 
054610 
054610 



012704 
010465 
004757 
016501 
012702 
020102 
001406 
0O4737 

104456 
001010 
056054 
01 WOO 

104406 



055550 
177776 
017124 
000000 
000200 



020106 



MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRO 



2051: CKLOOP 



♦T34PK3.R4 

R4,TSD6(R5) 

PC.WAITF 

TSSRCR5),R1 

♦SSR.R2 

R1»P2 

205; 

PC,FATCH< 

ERRN0,T34RRE,PKTSSR 



|R4 - POINTER TO PACKET 
I ISSUE COMMAND 
iWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
ONLY SSR IS SET 

AND ^HECK FOR MORE THAN 25 ERRORS 
REVERSE COMMAND TAILED 

TRAP 
.WORD 
.WORD 
.WORD 
jLOOP IF SELECTED 

TRAP 



iSET 
(ARE 
iBR, 

I INC 
iREAD 



OERHRD 
520 
T34RRE 
PKTSSR 



CtCLPl 





012737 


140401 


055550 


NOW 


ISSUE A READ REVERSE COMMAND 




054612 


MOV 




♦140401, T34PK3 


iREAD REVERSE, ACK , CVC-1 




054620 


013737 


005076 


055552 


MOV 




FREE.T34RB 


1 SET UP WRITE BUFFER ADORESS 




054626 


012704 


055550 




MOV 




♦T34PK3.R4 


|R4 • POINTER TO PACKET 




054632 


010465 


177776 




MOV 




R4.TS06CR5) 


I ISSUE COMMAND 




054636 


004737 


01712* 




JSR 




PC.WAITF 


,WAIT FOR SSR TO SET 




054642 


016501 


000000 




MOV 




TSSR(R5)»R1 


iGET TSSR CONTENTS 




054646 


012702 


000200 




MOV 




#SSR.R2 


iSET UP EXPECTED 




054652 


020102 






CMP 




R1.R2 


lARE THEY EQUAL 




054654 


001406 






BEQ 




210* 


iBR, IT MIGHT BE END OF TAPE 




054656 


0O4737 


020106 




JSR 




PC.FATCW 


i INC AND CHECK FOR MORE THAN 25 


ERRORS 


054 6C2 








ERRHRO 


ERRN0.T34RRE.PKTSSR 


I SECOND READ REVERSE COMMAND FAILED 


054662 


104456 












TRAP 


CIERHRO 


054664 


001011 












.WORD 


521 


054666 


056054 












.WORD 


T54RRE 


054670 


011/00 












.WORD 


PKTSSR 


0546 72 








?10$j CKLOOP 




lLOOP IF SELECTED 




054672 


104406 












TRAP 


CICLP1 










I NOW 


ISSUE A READ COMMAND 







0546 74 
054 702 
054 710 
054716 
054 722 
054 726 
054 732 
054 736 
054 742 
054744 
054 746 
054 752 
054/52 



012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020 L02 
001406 
0O4737 

10A45& 



14O001 
003076 
066540 
055550 

177776 
017124 
000000 
000200 



020106 



055550 
055552 

055556 



MOV 


♦140001, T34PK3 


iREAD 


MOV 


FREE.T54RB 


iSET 1 


MOV 


♦26000. .T34SZ 


i SET 


MOV 


♦ T34PK3.R4 


|R4 - 


MOV 


R4,TS06CR5) 


»issm 


JSR 


PC, WAITF 


(WAIT 


MOV 


TSSR(R5),R1 


l&ET 


MOV 


♦SSR.R2 


iSET 


CMP 


R1,R? 


j ARE 


BEQ 


230* 


iBR, 


JSR 


PC.FATCHK 


lINC 


fcRRHRD 


ERRNOiTJARRF^PKTbijR 


iR£AQ 



DATA, ACK, CVC-1 
UP WRITE BUFFER ADORESS 
UP BUFFER SIZE ( INC * OF BYTES) 

POINTER TO PACKET 
E COMMAND 

FOR SSR TO SET 
TSSR CONTENTS 
UP EXPECTED 
THEY EQUAL 
IT MIGHT BE END OF 
ANO CHECK FOR MORE 

FORWARD COMMAND 



TAPF 

THAN 
FAILED 
TRAP 



25 *RRHR' 



CIERHRU 



f^n! K A F A?l*A^Si a4 MACR0 MU0 ° 20.APR.84 08,13 



C 1 h 

PAGE na-io 



SEQ 197 



7599 

7600 
7601 
7602 
7603 
7604 
7605 
7606 
760 7 
7600 
7609 
7610 
7614 



76 IS 

7616 
7617 
7610 
761^ 
7620 
7621 
7622 
7623 
7624 
7625 
7626 
762 7 
7626 
7632 



7633 

76 34 
7635 
7636 
76 3 7 
7630 
/639 
7640 
7641 
7642 
764 3 
7644 
7645 
7646 
7647 



054 754 
054 756 
054 760 
054762 
054 762 
054 764 
054 7 72 
055000 
055006 
055012 
055016 
055022 
055026 
055032 
055054 
055036 
055042 
055042 
055044 
055O46 
055050 
055052 
055052 



055054 
055060 
055062 
055066 
055070 
0550 72 
055076 
055076 
055100 
055102 
055104 
055106 
055106 



055110 
0r>5116 
055124 
055130 
055134 
055140 
055144 



001012 
05 7600 
011700 

104406 
012737 
013737 
012737 
012704 
010465 
004737 
016501 
012702 
020102 
001406 
004737 

104456 
001013 
057600 
011700 

104406 



013701 
010102 
052 702 
020102 
001406 
0O4737 

104456 
001014 
056667 

016350 

104406 



012/37 
012737 
012704 
010465 
004737 
016501 
01270^ 



140001 
003076 
066540 
055550 
177776 
017124 
0OOO00 
000200 



020106 



055446 
000001 



020106 



140410 
000005 

055550 
17/776 
01/124 
000000 
000200 



522 

T34RRr 

PKTSSR 



055550 
055552 
055556 



2301} CKLOOP 

MOV 
MOV 
MOV 
MOV 
MOV 
JSR 
MOV 
MOV 
CMP 
BEQ 
JSR 
ERRHRD 



2351: CKLOOP 



♦140001 .V34PK3 

FREE.T34RB 

#28000. , T34SZ 

♦T34PK3.R4 

R4,TSDB(R5) 

PC.WAITF 

TSSR(R5),R1 

♦SSR.R2 

R1.R2 

2351 

PC.FATCHK 

ERRN0.T34RRF, PKTSSR 



.WORD 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP CfCLPl 

jREAD DATA, ACK , CVC-1 

i SET UP WRITE BUFFER ADDRESS 

I SET UP BUFFER SIZE (INC i> OF BYTES) 

iR4 ■ POINTER TO PACKET 

I ISSUE COMMAND 

iWAIT FOR SSR TO SET 

,G£T TSSR CONTENTS 

»SET UP EXPECTED 

I ARE THEY EQUAL 

>BR, IT MIGHT BE END OF 

i INC ANO CHECK FOR MORE 



I SECOND READ FORWARD 



lLOOP IF SELECTED 



TAPE 

THAN 25 ERRORS 
FAILED 

TRAP CIERHRD 

.WORD 523 

. WORD T MRRF 

.WORD PKTSSR 



TRAP 



ClCLPl 



J 

j##*****«*##**#*#**** #**♦##**** #,******##***^*^**&#.* ******** ************ 

! THE EOT BIT SHOULD HAVE REMAINED SET 



: UP XSTO 
UP EXPECTED 

THE EOT BIT ON IK EXPECTED 
THE BIT (M 
IF EOT WAS FOUNO 

AND CHECK FOR MORE THAN 25 ERRORS 
(XSTO) NOT SET 



MOV 


T54BFR*6,R1 


jPIC 


MOV 


R1,R2 


iSET 


BIS 


#6IT0,R2 


.SET 


CMP 


R1.R2 


(WAS 


BEQ 


2401 


iBR, 


JSR 


PC,FATCHK 


lINC 


ERRHRD 


t£RRN0,T34ET2,EXPREC 


lEOT 



2401: CKLOOP 



BIT 



I LOOP IF SELECTED 



TRAP 

.WORD 
.WORD 
.WORD 

TRAP 



CIERHRD 
524 

T34ETZ 
EXPREC 

ClCLPl 



055550 
055552 



WW ISSUE A SPACE RECORDS REVERSE FOR 5 RECORDS 



♦,*' 



MOV 


♦ 140410, T34PK3 


MOV 


♦5.T34RB 


MOV 


♦ T34PK3.R4 


MOV 


R4.TSDBCR5) 


J5R 


PC.WAITF 


MOV 


TSSR(R5) t Rl 


MOV 


0SSR.R2 



luPACE RECOROS REVERSE, ACK, CVC»l CMO* 
jNUMBER OF RECORDS TO SPACE 
jR4 • POINTER TO PACKET 

I ISSUE COMMANO 
jWAIT FOR SSR TO SET 
iGET TSSR CONTENTS 
iSET UP EXPECTED 



C/TKHA TK-25 FRT ENO FJNC 04 
TEST 5; OPERATIONS A1 EOT 
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SEQ 198 



7648 
7649 
7650 
7654 



765? 

7656 
765/ 
7656 
7659 
7660 
7661 
7662 
7663 
7664 
7665 
7666 
7667 
7668 
7672 



7673 

76 74 

7675 
76 76 
76 7 7 
76 78 
7679 
7680 
7681 
7682 
7683 
7684 
7685 
7686 
768 7 
7688 
7689 
7690 
7694 



7695 

7696 
769 7 
7698 



055150 
055152 
055154 
055160 
055160 
055162 
055164 
055166 
055170 
055170 



055172 
055176 
055200 
055204 
055206 
055210 
055214 
055214 
055216 
055220 
055222 
055224 
055224 



055226 
055254 
055242 
055246 
055252 
055256 
055262 
0552f>6 
055270 
0552 72 
0552 76 
055276 
055300 
055 502 
055304 
055306 
055306 



020102 
001406 
004737 

104456 
001015 
055676 
011700 

104406 



013701 
010102 
042702 
020102 
001406 
004737 

104456 
001016 
056155 

01S350 

104406 



012737 
012737 
012704 
010465 
0O4737 
016501 
012702 
020102 
001406 
004737 

104456 
001017 
0556 76 
011700 

104406 



020106 



CMP R1.R2 

BEQ 250$ 

JSR PC.FATCHK 

ERRHRD ERRN0»T34P0S,PKTSSR 



250 $5 CKLOOP 



055446 
000001 

020106 



******************************#- 



fARE THEY EQUAL 
iBR, IT MIGHT BE ENO Of TAPE 
I INC AND CHECK FOR MORE THAN 25 ERRORS 
i SPACE 5 RECORDS REVERSE COMMAND FAILED 

TRAP C$ERHRD 
.WORD 525 
.WORD T34P0S 
.WORD PKTSSR 
iLOOP IF SELECTED 

TRAP CICLP1 

********************************** 



EOT SHOULD BE CLEAR AS WE ARE NOW IN rRONT Of EOT 



MOV 


T34BFR»6,R1 


MOV 


R1.R2 


BIC 


♦6IT0.R2 


CMP 


R1.R2 


BEQ 


260$ 


JSR 


PC.fATCHK 


ERRHRD 


ERRN0»T34ETC,EXPREC 



260$: CKLOOP 



jPICK UP XSTO 

,SET UP EXPECTED 

i CLEAR THE EOT BIT ON IN EXPECTED 

»WAS THE BIT ON 

iBR, If EOT WAS fOUNO 

I INC AND CHECK FOR MORE THAN 25 ERRORS 

tEOT BIT CXSTO) NOT CLSAR 

TRAP 
.WORD 
.WORD 
.WORD 

lLOOP IF SELECTED 

TRAP 



C$ERHRD 
526 

T34ETC 
EXPREC 



C»CLP1 



140010 
000005 
055550 
177776 
017124 
000000 
000200 



020106 



055550 
055552 



NOU SPACE FORWARD 5 RECORDS AGAIN 

*******************************************<»********************* ***** 

i SPACE RECORDS FORWARO, ACK, CVC-l CMO. 

I NUMBER Of RECORDS TO SPACE 

jR4 - POINTER TO PACKET 

tlSSUe COMMAND 

jWAIT FOfl SSR TO SET 

iGET TSSR CONTENTS 

iSET UP EXPECTED 

I ARE THEY EQUAL 

iBR. IT MIGHT BE ENO Of TAPE 

j INC AND CHECK FOR MORE THAN 25 ERRORS 

j SPACE RECORDS FORWARD COMMAND FAILED 

TRAP CSERHRD 

.WORD 52 7 
.WORD T34PQJ 

.WORD PKTSSR 
2 70$: CKLOOP j L OOP IF SELECTED 

TRAP C<CLP1 



MOV 


#140010, T34PKJ 


MOV 


#5.T34RB 


MOV 


♦T34PK3.R4 


MOV 


R4,TSDB(R5) 


JSR 


PC.WAITF 


MOV 


TSSR(R5),R1 


MOV 


♦SSR.R2 


CMP 


R1.R2 


BEQ 


2 70$ 


JSR 


PC.F ATCHK 



ERRHRD ERRNO,T34POS,PKTSSR 



I*******************.*************************.************************** 



sirsi^RWoi^m* 4 
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SEQ 199 



7699 

7 700 
7701 
7 702 
7 703 
7 704 
7 70S 

7 706 
7 70 7 
77H 



7/12 

7713 

7 714 
7715 
7 716 
7 717 
7 718 
7 719 
7 720 
7 721 
7 722 
7723 
7 724 
7 725 
7729 



77 30 

7 731 
7732 



7 753 
7 734 
7 735 
7736 



055310 
055314 
055316 
055322 
055324 
055326 
055326 
055330 
055332 
055334 

0553 36 
055336 



055340 
055344 
055346 
055552 
055354 
055360 
055360 
055362 
055364 
055366 
0553 70 
0553 70 
0553 72 
055572 
055372 
0553 72 
055374 
055400 
055402 
055406 
C55406 
0554 1G 



013701 
010102 
052702 
020102 
001404 

104456 
001020 
056601 
011700 



104406 



055446 
000001 



010434 
C 00000 
020106 



00473/ 
103411 
016501 
010004 
004757 

104456 
001021 
057246 

011700 

104406 



104403 

004757 017362 

103002 

00013 7 055040 

104432 
002600 



EOT SHOULD BE SET AGAIN 



I 

1 

I********************************************************************** 

jPICK UP XSTO 

iSET UP EXPECTED 

,SET THE EOT BIT ON IN EXPECTED 

,UAS THE BIT ON 

jBR. IF EOT WAS FOUNO 

jEOT FAILED TO SET AFTER SPACE CMO. 

TRAH CIERHRD 
.WORD 528 
.WORD T34ETS 
.WORD PKTSSR 



MOV 


T34BFR»6,R1 


MOV 


R1.R2 


BIS 


*BIT0,R2 


CMP 


R1.R2 


BEQ 


280$ 



ERRHRD ERRN0,T34ETS, PKTSSR 



280$: CKLOOP 



,L0OP IF SELECTED 



TRAP CJCLP1 

**********************************************.J*********************** 

ISSUe A REWIND COMMAND 

*********** ******** **** ************************ ******* ***** 4***4 ****** 

iREWINO CALL 

I BR, IF TSSR IS OK (GOOD) 

iGET TSSR 

jSET UP PACKET 

j INC ANO CHECK FOR MORE THAN 25 ERRORS 

j TSSR IS INCORRECT AFTER REWIND 

TRAP CiERHRD 

.WORO 529 
.WORD T34RWN 
.WORD PKTSSR 

jLOOP IF SELECTED 

TRAP CICLP1 



JSR 


PC. REWIND 


BCS 


320* 


MOV 


TSSR(R5),R1 


MOV 


R<\R4 


JSR 


PL.FATCHK 



3201 
600$ 



ERRHRD ERRN0.T34RWN, PKTSSR 

CKLOOP 
EN0SU6 



163$: 



JSR PC.TSTLOOP 

BCC 163$ 

JMP T34L00P 

EXIT TST 



j >>>>>>>>>> >* ENO SUBTEST >>>>>>>>>>>> 

LlOO60t 

TRAP C$ESUB 

jDO W6 NEED TO ITERATE TEST 

iBR, IF NO LOOP REQUIRED 

iEXECUTE AGAIN 

j ALL DONE THIS TEST 

TRAP CtEXIT 
.WORD L1O057 



CZTKHA TK 25 FRT ENO FUNC 04 
TEST 5: OPERATIONS AT EOT 



7 758 
77J9 
7740 
7 74? 
7744 
7745 
7 746 
7747 
7 748 
7749 
7 750 
7 751 
7 75? 
7 755 
7754 
7 755 
7 756 
7 757 
7 759 
7 761 
7 76? 
7 765 
7764 
7 765 
7 766 
7 768 
7770 
7 7 71 
77 7? 
7 7 73 
7 7 74 
77 75 
7 7 76 
7 7 77 
7 7 78 
III** 
7 780 
7 781 
7 '82 
7 785 
7 784 
7 785 
7 786 
7 78 7 
7 788 
7 78" 
7 790 
7 791 
7 79? 
7 795 
7 794 
7 795 
7/96 
7 79 7 
7 798 
7 799 
7800 



05541? 
055420 
0554?0 
0554?? 
0554?4 
0554?6 
055430 
055430 
05543? 
0554 34 
055436 
055440 



0555?? 
055530 
055530 
05553? 
055534 
055536 

055540 
055550 
055550 
05555? 
05555? 
055554 
055556 



055560 
05556? 
055564 



0555 70 
0555 70 
0555 71 
0555 7? 
055574 



1000O4 
0554 30 
000000 
000010 

055440 
000000 
OOOOl? 
000000 



100006 
0555 70 
000000 
OOOOOfe 



100005 

OOOOOO 
000000 
OOOOOO 



OCOOOO 
OOOOOO 
OOOOOO 



055566 OOOOOO 



010 

?00 

OOOOOO 

OOOOOO 



0555 76 
05560O 
05560? 
055604 



100005 

10O405 
10?005 

177777 
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SEQ 200 



I LOCAL STORAGE FOR THIS TEST 

\ - 



.BLKB 


10-<.-T 


T34PACKET: 




.WORD 


100004 


.WORD 


T54DATA 


.WORD 





.UORD 


a. 


T34DATA} 




.WORD 


T34BFR 


.UORD 





.WORD 


10. 


.WORD 





T34BFR: ,BLKU 


?5. 



, WRITE SUBSYSTEM MEMORY COMMAND PACKET 



T34PK2; 



.BLKB 



10- <. - fUV2A£7> 





.WORD 


100C06 




.WORD 


T34BF2 




.WORD 







.WORD 


6. 




.BLKB 


10-<.-TUV2AS7> 


T54PK5: 








.WORD 


100005 


T34RB; 






T54WB: 


.WORD 







.WORD 





T34SZ: 


.WORD 
.EVEN 





T34RSZ: 


.WORD 





T54CNT: 


.WORD 





T340LY: 


.WORD 





T54TRK; 

J 


.WORD 





T54BF2: 






T34BS0: 


.BYTE 


10 


T54BS1: 


.BYTE 


200 


T34S2; 


.WORD 





T54S5: 

i 


.WORD 





j 


.EVEN 




l TAPE MOTION PACKFT COMMAND VA 


T34W0: 


.WORD 


100005 


T34W0R; 


.UORD 


100405 


TiACONl 


.UORD 


102005 




.WORD 


177777 



jCOMMANO PACKET FOR TEST 

iWRITE CHARACTERISTICS COMMANO. WITH ACK 

j ADDRESS OF CHARACTERISTICS BLOCK 

j STARTING VALUE OF BLOCK SIZE 
jCHARACTERISTICS DATA BLOCK 
j ADDRESS OF MESSAGE BUFFER 

iLENGTH OF MESSAGE BUFFER 

jMESSAGE BUFFER 



jWRITE SUB SYS MEM COMMAND. AND ACK 
j ADDRESS OF SELECT BLOCK DATA 

j SIZE OF DATA PACKET 



iWRITE COMMANO, ANO ACK 
lADDRESS OF WRITE/READ BUFFER 
jSIZE OF BUFFER (EXTENT) 



jLARGEST TAPE RECORD IN BYTES 
I TAPE RECORD COLNTER 
iDELAY COUNTER 

j HOLD TRACK NUMBER 



jBSELO AREA 
jBSELl AREA 
;SEL 2 AREA 
iDATA AREA 



jURITE DATA (NFXT) 
iWRITE DATA RETRY 
j WRITE CONTINOUS 
lENO OF DATA 



C/TKHA TK 25 FRT END FUNC 04 
TEST 5: OPERATIONS AT EOT 

7B02 

7803 

7B04 

7805 

70O6 

780? 

7808 

780^ 055606 045 116 

7R10 055676 124 125 

7811 055764 127 122 

7812 056054 122 105 
7815 056155 125 156 

7814 056252 125 155 

7815 056541 12/ 122 

7816 056450 12 7 122 

7817 056516 127 122 

7818 056601 125 120 
78m 05666/ 122 105 

7820 056/51 120 117 

7821 057057 105 117 

7822 057146 127 122 
7825 

7824 05 7224 11/ 160 

7825 057246 124 125 

7826 057525 124 125 

7827 057421 105 117 

7828 057515 125 156 

7829 05760O 124 125 
7850 057652 124 123 
7851 

7852 
7855 
7354 
7835 
7856 
78 5 7 
7858 
7859 05 7 726 

7840 05 7 726 

7841 057/52 012701 055420 

7842 05 7/56 012/21 10OO04 
7845 057742 012721 055450 

7844 057746 005021 

7845 057750 012721 0OO012 

7846 057754 012721 055440 
784/ 05 //60 005021 

7848 057/62 012721 000024 

7849 05/766 005021 

7850 05 7/70 012711 OOOOOO 

7851 057774 012702 000050 

7852 O600O0 012762 1777/7 
7855 060006 005742 

7854 060010 O20P2 7 OOOOOO 

7855 060014 001571 

7856 060016 000207 
785 / 

7B!>a 
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SEQ 201 



045 
125 
111 
101 
141 
151 
111 
111 
111 
101 
101 
125 
124 
111 



Q5544Q 



j LOCAL TEXT MESSAGES FOR TEST 
l - 



EWMSG: 

T54P0S 

T54ET0 

T54RRE 

T54ETC 

T54B0T 

T54WTM 

T54ET2 

T54ETN 

T54ETS 

T34ETZ 

T54TMK 

T54ET; 

T54E0T 



145 TST541D: 

125 T54RWN 

125 T54STM 

124 T54STE 
141 T54TMN 

125 T34RRF 
123 T54W0L 



i ♦ 



, ASCIZ ' *N#A Early Warning Indicator Juet Received, Track ■ *D2' 

.ASCIZ 'TSSR Incorract Aftar Poaitlon (SPACE RECORDS) Command' 

, ASCIZ 'WRITE TAPE MARK Bayond EOT Failed To Srt EOT Bit CXSTO)' 

.ASCIZ 'READ REVERSE Command At EOT DioW't Give Normal Termination (TSSR)' 

.ASCIZ 'Unable To Claar EOT Indication, CXSTO) Bit 0' 

.ASCIZ 'Skip File Mark Revere* (ovar antira tape) Failad To Sat BOT (XSTO) Bit' 

.ASCIZ 'WRITE TAPE MARK At EOT Failad To Sat Tapa Statue Alert' 

.ASCIZ 'WRITE DATA Bayond EOT Failad To Sat Tap* Statua Alart' 

.ASCIZ 'WRITE DATA Bayond EOT Failad To Sat EOT Bit (XSTO)' 

.ASCIZ 'SPACE RECORDS Bayond EOT Failed To Sat EOT Bit CXSTO)' 

.ASCIZ 'READ DATA Bayond EOT Failad To Sat EOT Bit CXSTO)' 

.ASCIZ 'POSITION Command Bayond EOT Into A Tapa Mark Failed To Set TMK (XSTO)* 

.ASCIZ 'EOT Not Found In 65000 5.5K Writea, (Ue* Shorter Tape)' 

.ASCIZ 'WRITE DATA OVER EOT GAVE NO TAPE STATUS ALERT' 

.ASCIZ 'Oparationa At EOT' 

.ASCIZ 'TSSR Incorract Aftar Poaition (REWIND) Command* 

.ASCIZ 'TSSR Incorrect Aftar SKIP TAPE MARK REVERSE Beyond EOT Mark' 

.ASCIZ 'EOT (XSTO) Not Set After SKIP TAPE MARK REVERSE, Beyond EOT' 

.ASCIZ 'Unabla To Claar TMK (XSTO) bit Uaing Space Command' 

.ASCIZ 'TSSR Incorrect After READ FORWARD Command' 

.ASCIZ 'TSSR Incorrect After SKIP FILE MARK REVERSE' 
.EVEN 



jROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
i WRITE SUBSYSTEM MEMORY COMMANO 



I SAVE THE REGISTERS 

jSTART OF THE PACKET 

jWRITE SUBSYSTEM MEM. WITH ACK 

jADDRESS OF CHARAISTICS DATA BLOCK 

{EXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BYTES 

I ADDRESS Of MESSAGE BUFFER 

(LENGTH OF MESSAGE BUFFER 

I SELECT DRIVE ZERO 

jNUMBCR OF LOCATIONS TO BE CLEARED 

t ALL ONES TO MESSAGE BUFFER 

iBUMP OOUN TO NEXT LOCATION 

;R2 AT ZERO YET 

j KEEP GOING UNTIL DONE 

iRETURN 



T34RESTI 




SAVREG 




MOV 


OT54PACKET.R1 


MOV 


*10OOO4,(Rl)* 


MOV 


«T540ATA,CR1)* 


CLR 


(Rl)* 


MOV 


♦10. ,(R1)» 


MOV 


*T54BFR.(R1)» 


CLR 


C Rl )♦ 


MOV 


£20. , CR1)» 


CLR 


(Rl). 


MOV 


♦O.CRl) 


MOV 


♦24. ,R2 


64 Is MOV 


*17 7/77,T34BFR(R2) 


TST 


cr;> 


CMP 


R2 . -0 


BNfc 


64 * 


RTS 


PC 



CZTKbW TK 25 KRI END t^C 04 
TEST 5: OPERATIONS AT EOT 
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SEQ 202 



7859 






7860 






7861 






7862 060O20 






7863 O6OO20 






7864 O60O24 


013737 


055450 055566 


7865 060O32 


03273/ 


OOOOIO 055566 


7866 060040 


00l4.?4 




7867 O60O42 


012703 


100001 


7863 060046 


004737 


010134 


7869 060052 


012704 


06012( 


78/0 060O56 


010465 


1/7/76 


7871 060O62 


004737 


017124 


78/2 060O66 


013702 


055566 


78/3 060072 


006002 




78/4 060074 


006002 




78 /5 060O76 


006002 




7876 060100 


006002 




78// 060102 


042702 


177760 


7878 






78/9 






7880 






7881 






7882 






7883 






7884 






7885 060106 


000261 




7886 060110 


000401 




7887 060112 


0O0241 




7888 060114 


0O020 7 




7890 060116 






7892 060120 


140411 




7893 060122 






7894 060122 






7895 060126 


012701 


055530 


7896 060132 


012721 


100006 


7897 060136 


012721 


055570 


7898 060142 


005021 




7899 060144 


012721 


0O0OO6 


7900 060150 


012701 


055570 


7901 060154 


005021 




7902 060156 


005021 




7903 060160 


005011 




7904 060162 


000207 




7905 060164 






7906 060164 






790 ; 0601 ;o 


012701 


055550 


7908 060174 


012721 


100005 


7909 060200 


005021 




7910 060202 


005021 




7911 0602C4 


005011 




7912 060206 


000207 




7913 060210 






060210 






060210 


104401 





EWCHK i 



SAVftKG 




MOV 


T34BFR*10.T34T«K 


BIT 


*aiT3,T34TRK 


BEU 


1001 


MOV 


♦100001, R3 


JSR 


PC, SPACE 


MOV 


♦110$, R4 


MOV 


R4.TS0BCR5) 


JSR 


PC.WATTF 


MOV 


T34TRK.R2 


ROR 


R2 


ROR 


R2 


ROR 


R2 


ROR 


R2 


BIC 


♦177760, R2 



J 
I 
I 
I - 



THIS SUBROUTINE CHECKS TOR EARLY WARNING SET AND IF GET 

IT ISSUES A BACKSPACE AND AN ERASE TO GET TO THE NEXT TRACK 

j SAVE ALL REGISTERS ETC, 

<READ XSTAT1 FOR EW 

,WAS EW SET IN XSTAT1 

{BR, IF IT WAS NOT 

l PARAMETERS FOR SPACE ROUTINE 

tfPACE J. RECORD REVERSE 

jAuORESS OF AN ERASE COMMANO 

l ISSUE THE ERASE COMMANO 

lUAIT FOR THE SSR BIT TO SET 

jGET TRACK NUMe^R 

, SHIFT OVER 4 BITS TO BITO 

ISHIFT OVER 4 BITS TO BITO 

j SHIFT OVER 4 BITS TO HI TO 

I SHIFT OVER 4 BITS TO BITO 

jONLY FOUR BITS PASS 

THIS MESSAGE USED TO PRINT EARLY WARNING MESSAGE. TRACK NINE 
DID NOT ALWAYS GIVE INOICATION. THIS WAS BECAUSE If WASN'T 
ALWAYS DETECTED DURING A WRlTfc, SO MESSAGE REMOVED. 



I "JUST RECEIVED EARLY WARNING INO. " 

iSET THE CARRY BIT 

jEXIT 

j CLEAR CARRY (NO EW FOUNO) 

{RETURN 

l ERASE OAT A, CVC-1. AND ACK COMMANO 

i SAVE THE REGISTERS 

; START OF THE PACKET 

lURITE SUBSYSTEM MEM. WITH ACK 

j ADDRESS OF DATA BLOCK 

jEXTENDED ADDRESS 

jSIZE OF DATA BLOCK IN BYTES 

jPOINT TO DATA SEL AREA 



jRETURN 

j SAVE THE REGISTERS 
iSTART OF THE PACKcT 
jWRITE TAPE. WITH ACK 
i ADDRESS OF DATA BLOCK 
jEXTENDED ADDRESS 
iSIZE OF DATA BLOCK 
jRETUR* 



J 


PRINTX 
SEC 


♦EWMS6.R2 




BR 


105$ 


100$: 


CLC 




105$: 


RTS 


PC 




,BLKB 


10 <. fUV2A£7> 


110$: 


.WORD 


140411 


T34RT2: 


SAVREG 






MOV 


♦T34PK2.RI 




MOV 


#100006, (Rl)» 




MOV 


#T34BF2,CR1)* 




CLR 


(Rl)* 




MOV 


#6. ,(R1)» 




MOV 


OT34BF2.R1 




CLR 


CRD* 




CLR 


CRD* 




CLR 


(Rl) 




RTS 


PC 


T34RT3: 


SAVREG 






MOV 


0T34PK3.R1 




MOV 


•100005. (RX)* 




CLR 


(Rl)» 




CLR 


(fll)* 




CLR 


CRD 




RTS 


PC 




ENDTSr 





L 10057 j 



TRAP 



CifcTST 



7914 



CZTKHA TK Jb FW END KUNC <?4 
DISPLAY BREAKPOINT SETTINGS 
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SEQ 203 



6986 
8991 
8997 
8998 
8999 
9000 
9001 

9002 
9003 
9004 
9005 
9006 
900 7 
9008 
9009 
9010 



9011 
9012 



9013 



9'J14 



9016 
901 / 
9018 
9019 

9020 



065010 
065010 
065012 

065012 
065012 
065014 
065016 
065020 
065022 
065022 
065024 
065026 
065030 
065032 
065032 
065034 
065036 
065040 
065042 
065044 

065044 
065044 
0650/3 
Q65117 



000015 



0OO031 
065044 
1600O0 
177776 

001031 
O650 73 
OOOOOO 
0O0776 

002032 
065117 
0O0340 
OOOOOO 
000007 



104 
111 
111 



,SBTTL HARDWARE PARAMETER CODING SECTION 

THE HARDWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P- TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LIHARD: 



BGNHRD 

.WORD L10061-LIHARD/2 



105 
116 
116 



L10061 
126 HPM1: 
124 HPM2: 

UA HPM3: 



GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMA 

.WORD 

.WORD 

.WORD 

.WORD 

GPRMD 

.WORD 

.WORD 

.WORD 

.WORD 

.WORD 

ENDHRD 

.EVEN 

.ASCIZ 
.ASCIZ 
,ASCU 
.EV6N 



HPM1, 0,0, 160000, 177776, YES 

TICOOE 

HPM1 

TILOLIM 

TIHILIM 

HPM2.2,0,0,776,YES 

TICOOE 

HPM2 

TILOLIM 

TIHILIM 

HPM3. 4,0, 340, 0,7, YES 

TICOOE 

HPM3 

340 

TILOLIM 

TIHILIM 



DEVICE ADORLSS ( TSSR) 
INTERRUPT VECTOR 
INTERRUPT PRIORITY 



jGET TSBA/TSDB REGISTER ADDRESS 



jGET VECTOR ADDRESS. 



jGET INTERRUPT PRIORITY. 



J16 



C/TKHA TK 25 FRT LND FUNC *4 MACRO M1200 
SOFTWARE PARAMETER CODING SECTION 



9022 
9023 
9024 
9025 
9026 
9027 
9028 
9029 
9030 
9031 
9032 



9033 



9034 



9035 



9036 



9037 
9038 
9059 
9O40 
9041 
9042 
9043 
9044 
904 5 
9046 
904? 
9048 
9049 
9050 
9051 



065150 
065150 
065152 
065152 
065152 
065154 
065156 
065160 
065160 
065162 
065164 
065166 
065166 
065170 
0651/2 
065174 

065174 



0651/4 
065240 

065270 



9052 
9053 

90S4 
9055 
90^6 
905 J 
9058 



065356 
065356 
065360 
065360 
065362 
065564 
065366 
065370 



000011 



000130 
065174 
177777 

001130 
065240 
177777 

002130 
06S270 
177777 



105 
111 

111 



0OOO05 

023644 
032326 
041322 
046640 
053000 



116 
116 

116 
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.SBTTL SOFTWARE PARAMETER COOING SECTION 



SEQ 204 



THE SOFTWARE PARAMETER COOING SECTION CONTAINS MACROS 
THAT ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
MACROS ALLOW THE SUPERVISOR TO ESTABLISH COMMUNICATIONS 
WITH THE OPERATOR. 



LSSOFT- 



BGNSFT 

.WORD L10062~L*S0FT/2 



L10062: 



101 SPM1: 
110 SPM4j 

110 SPM6: 



GPRML 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

GPRML 

.WORD 

.WORD 

.WORD 

ENDSFT 

.EVEN 



SPMl.O.-l.YES 

TiCOOE 

SPM1 

-1 

SPM4 i 2,-l,YES 

T*COOE 

SPM4 

-1 

SPM6. 4,-1, YES 

TICOOE 

SPM6 

-1 



j GET RAM DUMP FLAG 



j GET ITERATION CONTROL 



jGET EOT CHECK STATUS 



.ASCI7 'ENABLE CONTROLLER RAM DUMP ON ERROR' 

.A5CIZ 'INHIBIT ITERATIONS 

.ASCIZ 'INHIBIT EOT CHECKING (REDUCES RUN TIME BY 22 MINUTES) 

.EVEN 

.SBTTL PATCH AREA 



{DISPATCH TABLE 

! *** MOVE TO FRONT OF PROGRAM FOR RELEASE *** 

j - 

DISPATCH TESTNO 

.WORD 5 
LIDISPATCH: : 

, WORD T I 

.WORD T2 

.WORD T3 

.WORD T4 

.WORD T5 



FINALLY A GENEROUS PATCH AREA. 

ANO AN ADJUSTMENT TO ACCOUNT FOR Tilt "LASTAD BIT7" HACK 
DESCRIBED IN "SUPPRG.MEM" (FOR REV C), 



CZTKHA TK 25 FRT END FUNC 44 
PATCH AREA 

9059 

9O60 065372 

9061 

9062 

9065 

9064 065372 



9065 
9066 
9067 
906H 
9069 
9070 



9071 
907? 
9073 
9074 

9075 
90/6 
9077 



065372 
065374 
065376 



065376 
0653 76 
065376 
065400 
065402 
065402 
065404 
065406 
065410 
065410 
065410 



065410 
000005 



000000 
000003 

172522 
000224 
000240 



000001 



K16 
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SEQ 205 



PATCH}; 



LSLASTj 



L 10063: 



L10Q65; 



.IF NZ,,6377 
.-. • 377*1 

.ENOC 

LA5TAD jSET LAST USED ADDRESS. 

.EVEN 

.UORD TIFREE 

.WORD TJSIZE 

.SBTTL HARD CODED P TABLE 

DIAGNOSTIC IS PRE PARAMETERIZED PER THIS TABLE 

BGNSETUP 1 

BGNPTAB 

.WORD 

.WORD L 10065 -,/2-l 



.WORD 
.WORD 
.WORD 
ENOPTAB 

ENOSETUP 

• END 



172522 

224 

PRI05 



7TKHA TK 2! 

;ymbol tabl! 



ADDSSR 

ADR 

#.KOTSS 

^semb- 

A1716 - 

BAODAT 

BADSSR 

BAR 

BENBSW 

BIF 

BITO 

BITOO 

BITOl 

BIT02 

BIT03 

BTT04 

BIT05 

BIT06 

BIT07 

BIT08 

BIT09 

BIT1 

BITIO 

BIT11 

BIT12 

BIT13 

BIT14 

BIT15 

BIT2 

BIT3 

BIK 

bITb 

BIT6 

BIT7 

BIT8 

BIT9 

boe 

BRINIT 

BSELO 

BSEL1 

CHKAMB 

CHKMAN 

CHKTSS 

CKDtt OP 

CKEMAX 

CKMSG 

CKM5G2 

CKRAM 

CKRAM2 

CMP MEM 

CONFIG 

COUNT 

C5R 

CSRADD 

CTAB 

CTABE 

CTABM 



011772 G 
000020 G 
006332 
000010 
000003 
003114 G 
016554 G 
174402 
002176 G 
040000 
000001 G 

000001 G 

000002 G 
000004 G 
000010 G 
OO0O20 G 
000040 G 
000100 
000200 
000400 
001000 
000002 
002000 
004 OOO 
0100O0 
020OO0 
040OO0 
100000 
000004 
000010 G 
000020 G 
000040 G 
000100 G 
000200 G 
00O4O0 
0010O0 
000400 
004361 
OOOOOO 
OOOOOl 
016720 
021410 G 
017242 
020160 
020006 
011212 G 
011332 G 
010534 G 
011110 G 
020564 
020226 
002256 G 
174400 
002156 G 
003122 G 
003134 G 
003122 G 



G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 
G 



G 
G 
G 













L16 
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C*AU - 


000052 


DEBUGM 


011464 




EILOAD- 


000035 




CIAUTO- 


000061 


DEVCNT 


002170 


G 


FATCHK 


020106 




CtBRK « 


000022 


DEVDRO 


023574 




FATERR- 


000060 




C*BSEG» 


000004 


DEVNRD 


023513 




FATFLG 


002172 


G 


CJBSU6- 


000002 


DEVNXR 


023431 




FAULTM 


052527 




CJCEFG- 


00OC45 


DEVONL 


023361 




FERCM 


011554 




CICLCK- 


000062 


DEVSUM 


023324 




FIFEXP 


012022 


G 


CICLEA- 


000012 


DFPTBL 


002124 


G 


FIF1MS 


012074 




CtCLOS- 


000035 


DIAGMC- 


OOOOOO 




FIF2MS 


012143 




CICLP1- 


00OO06 


DLCYL • 


000177 




FILLME 


020400 




CICVEC- 


000036 


DLDNER- 


100200 




FLLTSW 


002722 


G 


CJDCLN- 


000044 


DLERR - 


177730 




FNOINT 


004117 




CIOOOU- 


000051 


DLGETS- 


000004 




FOfXER 


002146 


G 


CJDRPT- 


000024 


OLRDHO- 


000010 




FREE 


003076 


G 


CtDU » 


00OO53 


DLRDNH- 


000016 




FREEHI 


003102 




CiEOIT- 


■ 000003 


DLSR - 


000013 




FRESIZ 


003100 


G 


CIERDF- 


• 000055 


DLUN - 


000006 




FUSI 


004021 




CIERHR- 


■ 000056 


D5BINT 


017060 




F$AU - 


000015 




C*ERR0« 


■ 000060 


DUAD12 


004545 




FtAUIO- 


000020 




CfERSF- 


■ 000054 


DUFLG 


003064 


G 


FIBGN - 


000040 




C*ERSO* 


• 000057 


DUMMY 


003034 




FICLEA- 


000007 




CIESCA- 


> 000010 


EF.CON- 


000036 


G 


FIDU - 


000016 




CIESEG* 


• 000005 


EF.NEU- 


000035 


G 


FIEND - 


■ 000041 




CJESUB- 


- 000003 


EF.PWR- 


000034 


G 


FtHARD" 


• 000004 




CJETST- 


• OOOOOl 


EF.RES- 


000037 


G 


FIHW « 


• 000013 




C»EXIT« 


- 00OO32 


EF.STA- 


000040 


G 


F$INIT- 


■ 000006 




CtCETR- 


' 000026 


EMAXDU 


017703 




FIJHP - 


000050 




CIGF.TU* 


- 00OO2f 


EN 


OOOOOO 




FiMOO • 


■ OOOOOO 




CIGMAN- 


■ 00OO43 


ENAINT 


017026 




F$MSG ■ 


■ 000011 




C1GPHR- 


■ 0000*2 


ENVIRN 


021540 




FIPROT- 


■ 000021 




C$GPL0- 


• 000030 


EOTSEL 


002140 


G 


FIPWR ■ 


■ 000017 




CIGPRI- 


• 000040 


EPRT5U 


002150 


G 


F$RPT > 


■ 000012 




CIINIT" 


- 000011 


EPRT1 


005676 




FISEG - 


■ 000003 




CIINLP' 


• 000020 


EPRT2 


005737 




FISOFT- 


■ 000005 




CIMANI- 


■ 000050 


EPRT3 


006021 




FISRV • 


• 000010 




CIMEM • 


• 000031 


ERCM 


011565 




FISUB • 


• 000002 




C1MSG 


• 000023 


ERRHI 


002204 


G 


FISW - 


• 000014 




CIOPEN 


• 000054 


ERRK 


017662 




FITEST- 


• OOOOOl 




CIPNTB" 


■ 000014 


ERRLO 


002206 


G 


GDOAT 


003116 


G 


CIPNTF- 


- 000017 


ERRNO ■ 


001021 




GERRHA 


002144 


G 


CIPNTS- 


• 00O016 


ERRVEC- 


000004 


G 


GETPAT 


021104 


G 


CIPNTX 


- 000015 


ERTABE 


003334 




GETSEL 


021166 


G 


CIQIO 


• 000377 


ERTABL 


003134 




GtCNTO- 


■ 000200 




CIRDBU 


- 00OO07 


ESUM 


017664 




GIDELM- 


- 000372 




CIhEFG 


- 00004 7 


EVL 


000004 


G 


GfDISP 


■ 000003 




CtRESE 


- 000033 


EWCHK 


060020 




GIEXCP 


- 000400 




CIREVI 


- 000003 


EWMSG 


055606 




GIHILI- 


■ 000002 




CIRFLA 


- 000021 


EXBCNT- 


000010 




GILOLI- 


• OOOOOl 




CIRPT 


- 000025 


EXPBRE 


016356 


G 


GINO 


■ OOOOOO 




C*SEFG 


- 00OO46 


EXPO 


002200 


G 


GIOFFS 


• 000400 




C*SPRI 


- 000041 


EXPGOT 


0044 35 




GIOFSI 


• 000376 




CISVEC 


■ 000037 


EXPGT2 


0044 71 




GIPRMA 


■ OOOOOl 




C*TPRI 


- 000013 


EXPMSG 


002270 


G 


G*PRM0 


- 000002 




DAR 


- 174404 


EXPREC 


016350 


G 


G1PRML 


- OOOOOO 




DATA 


002260 G 


EXTA 


005236 




GIRADA 


- 000140 




DATAFL 


0150 ?0 


EXTEND 


005234 




GtRADB 


- OOOOOO 




DATASC 


021142 


EIEND » 


002100 




G*RADD 


■ 000040 





SEQ 206 



o;radl« 

GlRADO- 

GIXFER- 

G*YES - 

HIADDR- 

HIMEM - 

HOE 

HPM1 

HPM2 

HPM3 

IBE 

IDU 

IER 

IFAULT 

INCERK 

INTCPC 

INTFLA 

INTMAS 

INTR 

INTREC 

INTVEC 

INTX 

IOKCKI 

IOKSTP 

IPRI 

ISR 

IVEC 

IXE 

I$AU 

IfAUTO 

IICLN 

I<DU 

I*HRD 

IIINIT 

I* MOD 

ItMSG 

IIPROT 

IIPTAB 

IIPWR 

1IRPT 

IISEG 

I*SETU 

I$SFT 

IISRV 

It SUB 

I*TST 

JtJMP 

KIPARO 

KIPAR1 

KIPAR2 

KIPAR3 

KIPAR4 

KIPAR5 

KIPAR6 

KIPAR7 

KIPDRO 

KIPDR1 



000120 
000020 
000004 
000010 
001400 
007776 
100000 
065044 
065073 
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006234 




TINS1 - 


> 000005 


PKTWES 


011754 


G 


P.CONT' 


• 000012 




SFFMSG 


011746 G 


TIMEXP 


016426 


G 


TINS2 - 


■ 000002 


PKTNEU 


007327 




P.CVC - 


• 040000 




SFHERR 


0036?? 


TIMSGO 


016454 




TtPCNT- 


. OOOOOO 


PKTRAh 


004647 


G 


P.FMT - 


• 000140 




SFIERR 


003554 


TINERR 


011653 




T$PTAB« 


• 010064 


PKTSSR 


011700 


G 


P. FORM. 


• 000011 




SFIMSG 


011666 G 


TKB 


177562 




TIPTMV- 


' 000001 


PNT 


001000 


G 


P. GETS' 


• 00*017 




SFPTBL 


002134 G 


TKS 


177560 




TIPTNU- 


• 000001 


PR fcVK 


013630 




P. IE ■ 


• 000200 




SIFLAG 


003112 G 


TMP8FR 


002600 


G 


TISAVL' 


• 177777 


PRBEXP 


016344 




P.INIT- 


• 000013 




SIMSG 


011620 


TNAM 


017610 




TISEGL« 


• 177777 


PRBHSG 


016212 




P.MOOt' 


• 007400 




SKIPT 


003336 


TPB 


177566 




TIS.TZE- 


• 000005 


PRBREC 


016346 




P.OPP « 


. 020000 




S0FIN1 


016650 G 


TPS 


177564 




TISUBN- 


• 000001 


PRBTOT 


016277 




P.POSI- 


- 000010 




SPACE 


010134 G 


TRANST 


002134 


G 


TITAGL' 


• 177777 


PRBYTE 


015776 


G 


P. READ' 


• 000001 




SPtil 


065174 


TS8A - 


177776 


G 


TITAGN- 


• 010066 


PRI 


002000 


G 


P. SUB « 


• 010000 




SPM4 


065240 


TSBAH • 


177777 


G 


TITEMP- 


• 000006 


PRIA0O 


007706 




P. WRIT- 


• 000005 




SPt16 


065270 


TSBAL ■ 


177776 


G 


TITEST- 


. 000005 


PRIAO 


007756 




P.URTC' 


. 000004 




SRO 


• 177572 


TS06 • 


177776 


G 


WSTM« 


• 177777 


PRIBXO 


007340 


G 


P.WRTS 


- 000006 




SRI « 


• 177574 


TSOBM • 


177777 


G 


TITSTS' 


. 000001 


PRIEQU 


007606 




QVP 


002154 


G 


SR2 


• 177576 


TSOBL ■ 


177776 


G 


THAU 


• 010031 


PRIPKT 


007066 


G 


RAMASC 


013776 




SR3 


• 172516 


TSFCOO 


006734 




TMAUT« 


• 010033 


PRIRAM 


007614 




RAMDAT 


002210 


G 


SSR 


■ 000200 


TSREJ - 


000006 




TMCLE- 


• 010034 


PRITAO 


010022 




RAMER 


010636 


G 


STATCO 


012244 


TSSOEF 


006303 




TMDAT- 


• 010065 


PRITTS 


005270 




RAMERR 


016364 


G 


SVCG6L' 


. 000000 


TSSR ■ 


OOOOOO 


G 


THOU 


• 010032 


PRITO 


010072 




RAMEXP 


016404 


G 


SVCINS- 


. oooooo 


TSSRBI 


003404 


G 


TMMAR- 


• 010061 


PRIXOR 


00/470 


G 


RAMFHR 


014542 




SVCSUB- 


. 000001 


TSSRFO 


006112 




TMMU - 


• 010000 


PRIOO - 


000000 


G 


WMFOR 


007644 




SVCTAG" 


. Os)0000 


TSSRH • 


000001 


G 


TMINI- 


• 010030 


PRIOt - 


000040 


G 


MttLD 


011020 




SVCTST- 


• 000001 


TSSX 


003722 




TltMSG 


• 010025 


PRI02 » 


000100 


G 


R A .*ur 


011024 




StLSYMi 


• 010000 


TSTBLK 


002724 


G 


TMPC • 


• 000001 


PRI05 - 


000140 


G 


RAMPO 


011075 




SO. 106' 


• 000010 


TSTCNT 


002164 


G 


TIIPRO' 


• 010027 


PRI04 • 


000200 


G 


RAMR5H 


011022 




SO.IFB' 


. 000002 


TSTENO 


017624 




TMPTA- 


• 010064 


PRI05 - 


000240 


G 


RAHSIZ 


002250 


G 


SO.IFP. 


• 000001 


TSTFLA 


002262 


G 


TMRPT« 


• 010035 


PRI06 • 


000300 


G 


RAT1TA0 


016372 


G 


SO.ILD- 


. 000020 


TSTLOO 


017362 


G 


TUSOF 


- 010062 


PRI07 ■ 


000340 


G 


R8PCRA 


015135 




SO. ION- 


• 000040 


TSTPTR 


002264 


G 


T$»S»V 


• 010026 


PRtlESS 


014062 




RCVHIA 


002252 


G 


SO.IRO- 


• 000100 


TSTSET 


017414 


G 


TMSU8 


• 010060 


PRHNO 


002266 


G 


RCVLOA 


002254 


G 


SOIRW- 


• 000004 


TST29I 


032111 




TIISU 


• 010001 


PRMSGE 


015426 


G 


ROERR 


005110 




SO. ISP- 


• 000200 


TST30I 


041121 




TMTES 


• 010057 


PRMSGO 


015606 




REAO 


■ 000014 




SI. ICE- 


• 002000 


TST31I 


046413 




Tl 


023644 


PRMSG1 


015653 




REAOY 


■ 000001 




Sl.IEO' 


• 010000 


TST32I 


052470 




Ti.i 


023704 


PRMSG2 


015711 




RECMSG 


002434 


G 


Si.IFM- 


• 001000 


TST34I 


057224 




T1.2 


024312 


PROASC 


014720 




RECV 


002202 


G 


S1.IME- 


• 000400 


TTIBFR- 


177562 


G 


T1.3 


024 766 


PR1ASC 


014 765 




REGSAV 


021044 




Sl.IID- 


• 004000 


TTICSR- 


177560 


G 


T1.4 


025470 


PST32W 


003110 


G 


REWINO 


010434 


G 


S1.I1R- 


• 020000 


TTIVEC- 


000060 


G 


T? 


032326 


PUNIT 


022506 




RHCMBE 


- 000167 




51.12ft' 


• 040000 


TT08FR- 


177566 




T2.1 


032362 


PW.Dll- 


000021 




RflCMEN 


- 000200 




SI. PAR 


• 100000 


TTOCSR- 


W7564 




T2.2 


033724 


PU.D13- 


000022 




RMMSG8 


■ 000104 




S2.ATI 


• 000010 


TUV2A 


002000 


G 


T2.3 


035320 


PU.D22- 


000020 




RMMSGE 


• 000117 




S2.BTI* 


• 000004 


TIARGC- 


000001 




T2,4 


035672 


PW.NOP- 


000000 




RMPKTB 


- 000020 




S2.0IM- 


• 000200 


TICOOE- 


002130 




T29AM3 


030412 


PU.NOl- 


000023 




RMPKTE 


- 000027 




S2.ILW 


• 000100 


TIEftRN- 


001021 




T29BA 


030754 


PW.ROE- 


000024 




RMR 


- 010000 




S2.INR* 


■ 000020 


TIEXCP- 


OOOOOO 




T296FR 


026400 


PW 4 RDR* 


QQQQQl 




RWPACK 


Q1Q53Q 




S2.QUT' 


* 0QQQ40 


TtFLAG* 


QQQC4Q 




T296F2 


Q2652Q 



SEQ 206 



CZTKHA TK-25 FRT tNO TUNC 04 
SYMBOL TABLE 



CI 



T2960T 


027761 


T29BS0 


026520 


T296S1 


026521 


T29CNT 


026544 


T29C0N 


026532 


T290AT 


026370 


T29DLY 


026550 


T290TA 


030026 


T29t0T 


030114 


T29L0N 


031135 


T29L00 


023704 


T29L0P 


031217 


T29L0Q 


027476 


T29L0R 


027351 


rzwEr 


026700 


T29NEQ 


031455 


T290FL 


026552 


T29PAC 


026360 


T29P6P 


031301 


T29PK2 


026470 


T29PK3 


026510 


T29KB 


026512 


T29K0F 


026770 


T29P0G 


031553 


T29ft€S 


032140 


T29PIB 


031716 


T29RN 


026526 


T29KNC 


030337 


T?S«Rf 


027037 


T29WRG 


027153 


T29PPN 


032016 


T29RSZ 


026546 


T29RT2 


032232 


T29RT3 


0322 74 


T29RWN 


030270 


T29SC 


027267 


T29S0G 


031634 


T29SSP 


027557 


T29SZ 


026516 


T29S2 


026522 


T29S3 


026524 


T29TM 


030212 


T29TRL 


031367 


T29VCK 


030701 


T29WB 


026512 


T29W0C 


030607 


T29UD0 


030500 


T29W0E 


027632 


T29W0F 


027421 


T29WDP 


026530 


T29WNG 


026573 


729WRT 


027714 


T29W5S 


031046 


T3 


041322 G 


T3.1 


041362 


13.2 


042216 


T3QBFR 


036400 



C #4 


MACRO M1200 


20-APR-B4 


08:13 F 


T306F2 


036520 


T31CNT 


045206 


T30B0T 


037731 


T31CNU 


043210 


T308S0 


036520 


T51C0N 


045202 


T30CS1 


036521 


T51DAT 


045040 


T50CNT 


036540 


T310LY 


045212 


T30CNU 


036542 


T51DTA 


046516 


T300AT 


036370 


T31EGT 


044410 


T300LY 


036546 


T51L0N 


045370 


T300TA 


041024 


T51L00 


041362 


T300TR 


040760 


T51L0P 


045452 


T30ETM 


056376 


T51L0Q 


045766 


T30FCN 


056544 


T31L0R 


045641 


T30IBT 


036721 


T31NEF 


045710 


T30IBU 


036550 


V510TL 


044735 


T30IHV 


036526 


T31PAC 


045030 


T50L00 


032362 


T31PBP 


045554 


T50L0G 


037520 


T51PK2 


045140 


T5<*CF 


040466 


T51PK5 


045160 


T300FL 


040177 


T51R8 


045162 


T30PAC 


036360 


T51R0E 


045214 


T30PK2 


036470 


T51R0F 


045415 


T30PK3 


056510 


T51RES 


046460 


T50PTB 


037132 


T51RN 


045176 


T50*8 


056512 


T51RNC 


044615 


T50R0F 


05730! 


T51RRF 


045462 


T30R0G 


037561 


T31RT2 


046552 


T50GES 


041142 


T51RT5 


046614 


T30RIB 


056635 


T51PV.fi 


044544 


T30PN 


056526 


T51SC 


045557 


T50PW1 


040545 


T31SCF 


046031 


T30RWN 


040623 


tsissr 


044047 


T50**P 


040702 


TS1LZ 


043166 


T5GAT2 


041254 


T31S2 


045172 


T50AT5 


041276 


T31S3 


045174 


T30PWN 


040130 


T31TIM 


044310 


T50SKM 


037004 


T51TM 


044467 


T50S5P 


037601 


T51TRL 


045622 


T30SZ 


056516 


T51TSA 


046106 


T30S2 


05652? 


T51VCK 


045153 


T30S3 


056524 


T51UB 


045162 


T50TH 


057776 


T51W0C 


045100 


r3orrt< 


040404 


T31M00 


045010 


T50TH2 


040053 


rsiuoE 


044103 


T30TP8 


037223 


T51W0F 


043711 


T30VCK 


040331 


T51UD* 


04 5200 


T30WB 


036512 


T31UNG 


045341 


T30WOC 


040252 


T31WW 


045260 


T3OW00 


037060 


T51WPF 


046213 


T30W06 


037652 


T31WSS 


045301 


T30W0f 


037443 


T52AM3 


051577 


T31AM3 


044666 


T52BA 


051713 


T31BA 


045226 


T329FR 


051170 


T31BFR 


0430™ 


T3260E 


052216 


T31BF2 


0431/0 


T3260T 


051546 


T31B0T 


044215 


T32CM0 


051310 


T31BS0 


043170 


T32CNT 


051340 


T3XBSX 


043171 


T32CNU 


05X542 



SEQ 209 



T32DAT 

T32DLY 

T32ECF 

T32E0T 

T32ERA 

T32L00 

T520PI 

T52PAC 

T32PK2 

T32PK3 

T32RB 

T32KES 

T52PIB 

T52PT2 

T32RT5 

T52PWN 

T32SCF 

T32SZ 

T52TSA 

T32WB 

T32W0C 

T34BFR 

T548F2 

T54B0T 

T34BS0 

T54BS1 

T54CNT 

T54C0N 

T540AT 

T540LY 

T34E0T 

T54ET 

T54ETC 

T54ETN 

T54ET0 

T54ETS 

T54ETZ 

T54ET2 

T54L00 

T54PAC 

T54PK2 

T54PK5 

T54P0S 

T54R6 

T54RES 

T54RPE 

T54RPF 

T54RSZ 

T54RT2 

T54RT3 

T34RWN 

T34STE 

T34STM 

T54SZ 

T34S2 

T34S3 

T34TMK 



051160 
051344 
052305 
051441 
051646 
046732 
052435 
051150 
051260 
051300 
051302 
052632 
051766 
052724 
052754 
051530 
052064 
051506 
052141 
051302 
052366 
055440 
055570 
056232 
055570 
055571 

055562 
055602 
055430 
055564 
057146 
057057 
056155 
056516 
055764 
056601 
056667 
056430 
053040 
055420 
055530 
055550 
055676 
055552 
057726 
056054 
057600 
055560 
060122 
060164 
057246 
057421 
057325 
055556 
055572 
055574 

Q5675X 



T34TMN 

T54TRK 

T34WB 

T54W0 

T54W0R 

T34W0L 

T34WTM 

T4 

T4.1 

T4.2 

T4,3 

T5 

T5.1 

UAM 

WITN 

UNREC • 

USI 

WAITF 

WC.IFA- 

WC.IFE- 

UC.XGO- 

WC.IRE- 

UC.IRW- 

WC.IOT- 

WC.I1T- 

WC.I5R- 

WF.IED- 

WF.IER- 

WF.IMI- 

WF.IRE- 

WF.IUF- 

UF.IUP- 

MF.I3R- 

WF.I4R- 

URTCW 

WRTERR 

WRTHSG 

XFERAS 

XNXM 

X0P8F0 

XORFOP 

XSTO 

XST1 

XST2 

X5T5 

XST4 

XS060T 

XSOCON 

XSO€OT 

XSOIE 

XSOILA 

XSOILC 

XSOLET 

XSOhOT 

XSONEF 

XSOONL 

XSQPEO* 



057515 
055566 
055552 
)55f76 
055600 
057652 
056341 
046640 
046732 
047550 
050336 
053000 
053040 
000200 
002152 
000006 
004025 
017124 
000200 
000002 
000001 
000010 
000004 
000100 
000040 
000020 
000010 
000004 
000200 
000040 
000020 
000100 
000002 
000001 
010552 
005015 
004760 
016614 
017502 
007422 
007540 
000006 
000010 
000012 
000014 
000016 
000002 
015202 
000001 
000040 
000400 
001000 
020000 
000200 
002000 
000100 
0000X0 















Dl 






iftfitt «b6I frt 


END FUNC *4 


MACRO M1200 


20-APR-84 ' 


08*13 PAGE 137- 


•6 




XSORLL- 01OOOO 




XXCOMM 


003074 G 


Xl.RBP- 


000400 




X2.SPA- 


035400 


XSORLS- 040000 




XtALUIA* 


000000 


XI. SPA- 


040000 




X2.UNI- 


000007 


XSOTMK- 100000 




XiFALS- 


000040 


Xl.UNC- 


000002 




X2.WCF- 


002000 


XSOVCK- 000020 




XtOFFS" 


000400 


X2.BUF- 


000100 




X3.DCK- 


000010 


XSOULE- 004000 




X$TRl€- 


000020 


X2.EXT- 


000200 




X3.MBZ- 


000006 


XSOWLK- 000004 




XI. COR- 


020000 


X2.0PM- 


100000 




X3.MDE- 


177400 


XS1C0N 015247 




Xl.DLT- 


100000 


X2.RCE- 


040000 




X3.0PI- 


000100 


XS2C0N 015314 




Xl.MBZ- 


017375 


X2.REV- 


000077 




X3.REV- 


000040 


XS3C0N 01536. 


















. ABS, 065410 


000 
















000000 


001 
















ERRORS OF.TECTEO: 




















SEQ 210 



X3.RIB- 
X3.SPA- 
X3.TRF- 
X4.HSP- 
X4,MBZ- 
X4.RCE- 
X4 . TSM- 
X4.WRC- 



000001 
000200 
000020 
100000 
017400 
040000 
020000 
000377 



VIRTUAL MEMORY USED: 31872 WORDS ( 125 PAGES) 
DYNAMIC MEMORY: 20060 WORDS ( 77 PAGES) 
ELAPSED TIME: 00:32:05 
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